begin
var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;
SetLength(S, 50);
Println('Приняты символы:');
S.Println('');
Println('Найдено z:', S.Count(c -> c = 'z'))
end.
