Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.
Нет, нельзя так как форматирование определяется милионом
Цикл с параметром:
program prost;
uses crt;
var y, i: word;
x: LongInt;
begin
readln(x);
readln(y);
for i := 2 to y do
x:=x*x;
writeln(x);
end.
Цикл с постусловием:
program prost;
uses crt;
var x: LongInt;
y, i: word;
begin
i := 0;
readln(x);
readln(y);
repeat
x := x*x;
Inc(i)
until i <> y;
writeln(x);
end.