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

var

 a,b,c:Extended;

begin

 Readln(a,b,c);

 if a>5 then a:=a*a;

 if b>5 then b:=b*b;

 if c>5 then c:=c*c;

 Writeln(a,' ',b,' ',c);

end.

program abcd;uses crt;var a,b,c:real;beginwriteln(Введите 3 действительных числа через пробел"');readln(a,b,c);if a>5 then begina:=a*a;writeln(a)endelse writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');if b>5 then beginb:=b*b;writeln(b);endelse writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');if c>5 then beginc:=c*c;writeln(c);endelse writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');end.