01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / DIMKA

Program DD;
Uses Crt;
Var
m1,m2,m3:set of byte;
i,j,k:integer;

Procedure Input;
var
i:integer;
begin
m1:=[ ];
Writeln('‚Ґ¤ЁвҐ 6 зЁбҐ« ®в 1 ¤® 36');
For i:=1 to 6 do begin
Write('‚ўҐ¤ЁвҐ ',i,' зЁб«® ');
Readln(k);
m1:=m1+[k];
end;
end;

Procedure Comp;
begin
m2:=[ ];
For i:=1 to 6 do begin
repeat k:=random(35)+1; Until not(k in m2);
m2:=m2+[k];
end;
end;

Begin
Randomize;
ClrScr;
input;
comp;
Clrscr;
Writeln('‚лЇ ўиЁҐ зЁб«  :');
For i:=1 to 36 do
if i in m2 then Write(i,' ');
Writeln;Writeln('‚ иЁ зЁб«  :');
For i:=1 to 36 do
if i in m1 then write(i,' ');
m3:=m1*m2;
Writeln;Writeln('“Ј ¤ ­­лҐ зЁб«  :');
For i:=1 to 36 do
if i in m3 then write(i,' ');
Readln;
end.