program klasa;
var i,n:integer;
f:text;
s:string;
begin
randomize;
writeln('program wykonuje podane zadanie:)');
assign(f,'dolce.txt');
rewrite(f);
for i:=1 to 10 do
begin
n:=random(30);
str (n,s);
writeln(f,n);
end;
close(f);
writeln('losowanie skonczone licby dodane');
readln;
end.