Даны три реальных числа. Возвести в квадрат те из их, значения

var a,b,c:integer;

begin

write('Введите a = ' );readln(a);

if agt;=0 then a:=sqr(a) else a:=sqr(a*a);

write('Введите b = ' );readln(b);

if bgt;=0 then b:=sqr(b) else b:=sqr(b*b);

write('Введите c = ' );readln(c);

if cgt;=0 then c:=sqr(c) else c:=sqr(c*c);

writeln('a = ',a,' b = ',b,' c = ',c);

end.