Множества в паскале

[repchic]

помогите пожалуйста написать программу на паскале программу типа игры угадайки,чтоб когда вводишь 5 чисел отображись на экране угаданные и не- угаданные числа.заранее благодарен.

[Arigato]

Не понятна суть игры.

[Zer0]

видимо что-то наподобие:

const nCount=5;
         maxNum=10;
var zagad:set of integer;
     a:array [1..5] of integer; t,i:integer;
begin
randomize;
zagad:=[];
for i:=1 to nCount do begin
  repeat
   t:=random(maxNum)+1;
  until not (t in zagad);
  zagad:=zagad+[t];
  write (i,' num = ');
  readln(a[i]);
end;

writeln ('Ugadal: ');
for i:=1 to 5 do 
  if a[i] in zagad then write(a[i]:3);
writeln;

writeln ('Ne ugadal: ');
for i:=1 to 5 do 
  if not (a[i] in zagad) then write(a[i]:3);
readln;
end.