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