Задан список из десяти
городов. (array [.]of string)Под­считать количество названий, в которых нет бу­квы
«р».

Program chik;
const n=10;
var a:array[1..100]of string;
i,k:integer;
begin
for i:=1 to n do
begin
readln(a[i]);if(pos(р,a[i])=0)then k:=k+1;
end;
writeln(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.