Введите с клавиатуры три числа если а> в> с> 0, то замените все числа их квадратами и выведите результаты на экран .

Var a,b,c:integer;
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (b>c) and (c>0) then
begin;
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end;
end.