Странные вопросы и составлены не совсем грамотно. Если рассматривать все попунктно, то во всем виноват бюджет!!!
Чтобы знать к какому типу файл относится и для правильной работы с различными программами и форматами.
Program Rick_and_Morty;
var a,b:integer;
Begin
write('введите a: ');
readln (a);
write('введите b: ');
readln (b);
writeln('b^4 = ',b*b*b*b );
writeln('a+b^4 = ',a+b*b*b*b );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('корень из (7.1*(a+b^4)) = ', sqrt(7.1*(a+b*b*b*b)) );
writeln('a^2 = ', a*a );
writeln('9.213*a^2 = ', 9.213*(a*a) );
writeln('(9.213*a^2)-b = ', (9.213*(a*a))-b );
writeln('ответ:');
writeln('(корень из (7.1*(a+b^4)))/(9.213*a^2)-b = ', (sqrt(7.1*(a+b*b*b*b)))/((9.213*(a*a))-b ) );
writeln('');
writeln('конец');
end.
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>