Лабы / Pascal.1.курс / part 1 / LABA2 / VAR23 / IO

unit io;
interface
uses crt,global;
procedure inp(var a:tar);
procedure outp(var b:tar);

implementation
procedure inp(var a:tar);
var i,v1,v2:integer;
begin
randomize;
for i:=1 to n do
begin
v1:=random(100);
v2:=random(3);
if v2=2 then a[i]:=v1*(-1)
else a[i]:=v1;
textcolor(white);
write(a[i],' ');
end;
writeln;
readln;
end;

procedure outp(var b:tar);
var i:integer;
begin
textcolor(red);
for i:=1 to n do
begin
delay(5000);
write(b[i],' ');
end;
end;
end.