Question

Помогите написать вот эту программу в Pascal ABC (задача 2.2.1)

Answer 1

program lol (input, output);
var I:integer;
a, x:real;
begin
x:=-5;
while x <=5 do
begin
a:=sqr(x);
writeln (a);
x:=x+0.5;
end;
end.

Answer 2

Var
  x:real;
Begin
  x:=-5;
  repeat
      writeln('y = ',sqr(x));
      x:=x+0.5;
  until(x>5)
End.