uses crt;
var
isim : array[1..10] of string[20];
say,i : integer;
begin
for i:=1 to 10 do
begin
clrscr;
write(i,'. isim : \');
readln(isim[i]);
end;
for i:=1 to 10 do
begin
if isim[i]='ali' then
say:=say+1;
end;
clrscr;
write('Ali isiminden \',say,' tane var\');
readkey;
end.
ziya ahmedsoy