Помогите пожалуйста написать программу в Pascal.

Question

Такая задача: выяснить, чи входит в последовательность буква Z и сколько раз, на печать вывести соответствующие сообщение. Спасибо.

Дмитрий · Accepted Answer

var 
 c: char; 
 n: integer; 
begin 
 write('строка? '); 
 read(c); 
 repeat 
 read(c); 
 if c = 'Z' then inc(n); 
 until eoln(input); 
 if n > 0 then writeln('кол-во букв ''Z'': ', n) 
 else writeln('буквы ''Z'' не обнаружены'); 
end.