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

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

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