программа лото, полное описание программы Опции

[MrOverseer]

Есть программа, к которой нужно построчное, доскональное описание команд и переменных, а также пояснение зачем используются именно эти команды и что к чему относится . Принцип программы: игра лото. 36 карточек, в карточке по 5 чисел. А вот количество так называемых "бочонков" я не знаю.

uses crt;
var np,k:set of 1..36;
kol, l,n,i: integer;
begin
clrscr;
randomize;
writeln ('vvedite koli4estvo');
readln (kol);
np:=[1..36];
for i:=1 to kol do
begin;
k:=[];
for l:=1 to 5 do
begin
repeat
n:=random(36);
until (n in np) and not (n in k);
write (n:4);
end;
writeln;
end;
readln;
end.

бегин, врайт лн, енд, реад, юзес крт, клрскр - обьяснять не нужно!

Сообщение отредактировано: MrOverseer - 6.01.2008 21:18