Окончание слова, в зависимости от числа.

[Bonio]

Есть число n, надо вывести фразу "мы выпили n бутылок пива", согласовав окончание слова "бутылка" с числом n.
Например: мы выпили 1 бутылку пива, мы выпили 2 бутылки пива, мы выпили 18 бутылок пива, мы выпили 31 бутылку пива, и т.д.
Как такое реализовать?

[Alt]

Ну смотри, окончание в нашем языке определяется по последней цифре, т.е. что 8 бутылок, что 18 бутылок, что 108 бутылок и т.д.
Определяешь последнюю цифру числа и по ней выбираешь окончание... Вот так это можно реализовать в консоли:

var
buf: string;
n: integer;
begin
write('Мы выпили ', n, 'бутыл');
buf:=inttostr(n);
case buf[length(buf)] of
'0','5','6','7','8','9': write('ок');
'1': write('ку');
'2','3','4': write('ки');
end;
writeln(' пива.');
readln;
end;

[Bonio]

А можно примерчик, в delphi я не силён.

[Karabash]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Length(Edit1.Text) = 1) or (Edit1.Text[Length(Edit1.Text)-1] <> '1') then begin
    case Edit1.Text[Length(Edit1.Text)] of
      '1' : Label1.Caption := Edit1.Text+' бутылка';
      '2'..'4' : Label1.Caption := Edit1.Text+' бутылки';
      else
        Label1.Caption := Edit1.Text+' бутылок';
    end;
  end else
    Label1.Caption := Edit1.Text+' бутылок';
end;

[Bonio]

Благодарю вас за помощь. Разобрался