Даны три действительных abc. Возвести в квадрат те из них которые не положительные

var a, b, c: real; begin writeln ('Введите числа a, b, c'); readln (a, b, c); if a <= 0 then a: =sqr (a); if b <= 0 then b: =sqr (b); if c <= 0 then c: =sqr (c); writeln ('a=', a, ', b=', b, ', c=', c); end.