Данное программко подсчитывает, сколько раз подряд котик нажал на какой-либо символ (цифру, букву) на клавиатуре:)
program KAT;
var N: inteyer;
A: char;
begin N:=0;
repeat;
read(A);
if A='1' then N:=N+1;
until A<>'1';
writeln(N);
end.
©Д.Ю. Соловьев, наш лектор по Алгоритмам и алгоритмическим языкам.