Ответ:

Program vv1;

var a, b, c : integer;

begin

write('введите a');

readln(a);

if a>=0 then a:=sqr(a)

else a:=sqr(a*a);

write('введите b' );

readln(b);

if b>=0 then b:=sqr(b)

else b:=sqr(b*b);

write('введите c' );

readln(c);

if c>=0 then c:=sqr(c)

else c:=sqr(c*c);

writeln('a = ',a,' b = ',b,' c = ',c);

end.

Объяснение:

===== PascalABC.NET =====

begin

 ReadSeqReal(3).Select(p -> p > 0 ? p * p : Sqr(p * p)).Print

end.