Для целого числа k от 1 до 99 напечатать фразу «мне k лет», учитывая при

[email protected] в категроии Информатика, вопрос открыт 13.01.2018 в 15:36

этом, что при некоторых значениях k слово «лет» заменить на слово «год» или
«года». Сделать программу в Delphi. Есть код, но я не понимаю, куда должен выводиться результат writeln
procedure TForm1.btn1Click(Sender: TObject);
var i,n :integer;
begin
n:=99;
for i:=1 to n do begin
case i of
11..14:writeln('Мне ',i,' лет');
else
case i mod 10 of
1:writeln('Мне ',i,' год');
2..4:writeln('Мне ',i,' года');
else
writeln('Мне ',i,' года');
end;
Readln;
end;
end;
end;

end.