Var c,r:real;
const pi=3.1415;
begin
write('введите радиус окружности');
read(r);
c:=2*pi*r;
writeln('длина окружности равна', c);
end.
Клавиaтура тут ни при чём, нужен тeкстовый редактор с поддержкой
автодополнения слов и словарём для русского языка. Почитай "Предиктивный
ввод текста" в Википeдии.
Умножь 7 на 33(Столько букв в русском языке) = 231