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

Question

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

---

Answer 1

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

Answer 2

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