Дано натуральное число k. Написать программу, которая по введенному числу k от 1 до 99 напишет фразу: ("Мне,k,лет")

1

Ответы и объяснения

2013-04-15T17:17:10+00:00

var k:integer;

begin

repeat

readln(k);

until(k>1) and (k<99);

writeln('мне ',k, 'лет');

readln;

end.