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

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