Олимпиадные задачи

«МАРАФОН»  (100 баллов)

Решение

var f,f1:text;

kol,i,n,s:longint;

a:array[1..1000] of longint;

begin

assign(f,'input.txt');

assign(f1,'output.txt');

reset(f);rewrite(f1);

read(f,n);

for i:=1 to n do

  begin

  read(f,s);

  a[s]:=a[s]+1;

  end;

for i:=1 to 120 do

  if a[i]>=1 then kol:=kol+1;

writeln(f1,kol);

close(f);

close(f1);

end.