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.