Даны целые числа: а, 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.

Var f: text; s, d:string; i, n:integer; a:array of integer; BeginAssign (f,'c://q/t. txt') ; Reset (f) ; n:=3; setLength (a, n) ; While not eof (f) do begin readln (f, s) ; writeln (i:2,' ', s) ; end; Close (f) ; writeln; var arr : = s. Split ('; ') ; for i:=0 to n-1 do begina[i] : = strtoint (arr[i]) ; if a[i] > 0 then a[i]: = a[i] * a[i]; end;

for i:=0 to n-1 dod: = d + inttostr (a[i]) + '; ';

assign (f,'c://q/out. txt') ; rewrite (f) ; write (f, d) ; Close (f) ; end.