Множества

[Archangelos]

Дано 30 целых чисел от 1 до 50. Определить, сколько среди них чисел, первая цифра которых 2.

Очень прошу помочь.
Программу прошу писать полностью.

[alex_fcsm]

Интересно для чего здесь множества....

const m=[2,20..29];
      n=30;
var i,j,temp:integer;
begin
randomize;
j:=0;
for i:=1 to n do
 begin
  temp:=random(50)+1;
  if temp in m then inc(j);
 end;
writeln(j);
end.

[Archangelos]

а полностью как звучит -( со слова Program

[Stilet]

а полностью как звучит

А это и есть полностью, просто мой глубокопонимающий коллега так же считает что слово Program в Паскале давно стало анахроническим архиатавизмом.

[Archangelos]

что то она работать не хочет -)) входит в режим ввода данных, вроде как всё нормально но сразу вылетакет -(

[alex_fcsm]

допиши readln;