Даны целые числа :а ,b,и с .Возвести в квадрат те из них , которые положительны.
Входные данные :-3;5;-2
Выходные :-3;25;-2.

Program n1;var a,b,c: integer;beginreadln(a,b,c);if a>0 then write(a*a,' ') else write(a,' ');if b>0 then write(b*b,' ') else write(b,' ');if c>0 then write(c*c,' ') else write(c,' ');end.