Лабы / Pascal.1.курс / part 2 / var 14 / Lab4dat

program lab4dat;
var
f:file of integer;
i,j:integer;

begin
assign(f,'lab.dat');
{$I-}
rewrite(f);
{I+}

if ioresult<>0 then begin
writeln('Out of free space');
halt;
end;

randomize;
for i:=1 to 20 do begin
j:=random(100);
write(f,j);
end;
close(f);
end.