Даны три действительных числа. Возвести в квадрат те из них > 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;

begin

writeln (Введите 3 действительных числа через пробел"') ; readln (a, b, c) ;

if a>5 then begin

a:=a*a;

writeln (a)

end

else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

if b>5 then begin

b:=b*b;

writeln (b) ;

end

else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

if c>5 then begin

c:=c*c;

writeln (c) ;

end

else writeln ('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"') ;

end.