Задание:
Дано натуральное число k. Написать программу, которая по введенному числу k от 1 до 99 напишет фразу"Мне,k, лет")
Решение:
var k: integer; beginrepeatreadln (k); until (k>1) and (k<99); writeln ('мне ',k, 'лет'); readln; end.
Знаете другой ответ?