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

program SPORTLOTO;
USES CRT;
var i,k,n:integer;
mn:set of byte;
a,s:array[1..6] of integer;
BEGIN
CLRSCR;
randomize;
mn:=[];
for i:=1 to 6 do
a[i]:=random(36);
readln(a[i]);{for i:=1 to 6 do writeln(a[i]);}
for i:=1 to 6 do
mn:=mn+[a[i]];
n:=0;
writeln('ўўҐ¤ЁвҐ 6 б«гз ©­ле зЁбҐ« ®в 1 ¤® 36');
for k:=1 to 6 do
read(s[k]);
writeln('ᥣ®¤­п ў бЇ®ав«®в® ўлЇ «  Є®¬ЎЁ­ жЁп:');
for i:=1 to 6 do
write(a[i]:2);
for k:=1 to 6 do
if s[k] in mn then n:=n+1;
write(n:2);
readln;
END.