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

Program n1;
var a,b,c: integer;
begin
readln(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.