Введите с клавиатуры три числа если А>В>С>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.