Помогите решить очень надо(((

[Alexsssandr]

Вводится N произвольных чисел от 0 до 255. Определить для соответствующих им по кодам символов определить, количество букв «л» и «т» Буду весьма признателен....

[ОДИНОЧЕСТВО В СЕТИ]

l:=0;
t:=0;
readln(n);// вот тут пользователь вводит кол-во чисел
for i:=1 to n do
begin
readln(a); // а вот тут он вводит n чисел
if a=ord('л') then l:=l+1;
if a=ord('т') then t:=t+1;
end;
Writeln('л=',l:8,'т=',t:8);
readln;
end.

что надо то еще?

[Alexsssandr]

Спасибо большое!!!!!!!!!!!)

[Alexsssandr]

А подругому ни как?

[ОДИНОЧЕСТВО В СЕТИ]

l:=0;
t:=0;
for i:=1 to n do
begin
readln(a);
if chr(a)='л' then l:=l+1;
if chr(a)='т' then t:=t+1;
end;
Writeln('л=',l:8,'т=',t:8);
readln;
end.

вот так еще можно