Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A<0 then A:=A*A;
WriteLn(A)
End.
Var
X,Z:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Z:=X*X;
WriteLn('Z = ',Z);
End.
<span> С помощью </span>клавиши<span> Backspace </span><span>можно удалить символ слева от курсора.</span>
Как я понял, тут рассматривается цикл. после каждого "прогона" появляется новое значение s:
i:=9
s:=95+2*9=113 => s:=113
так мы прогоняем до i:=16 и получаем значение 295