Даны целые числа :а ,b,и с .Возвести в квадрат те из

Program n1;
var a,b,c: integer;
begin
readln(a,b,c);
if agt;0 then write(a*a,' ') else write(a,' ');
if bgt;0 then write(b*b,' ') else write(b,' ');
if cgt;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] gt; 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.