uses crt;
var c:char;
k,i:byte;
begin
clrscr;
writeln('Вводите цифры, окончание ввода не цифра.');
k:=0;
repeat
c:=readkey;
if c='2' then k:=k+1;
if c='7' then
begin
for i:=1 to 3 do
write('7');
writeln;
end;
until not(c in ['0'..'9']);
readln;
write('Количество цифр 2=',k);
readln
end.