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