Question

Осуществить ввод натуральных чисел от 2 до 10. Вывести наименования чисел на русском и английском языке(на языке Pascal)

Answer 1

program brainli_1;

uses crt;

var

input:integer ;

begin

WriteLn('Введите число от 2 до 10');

ReadLn(input);

case input of

2: Writeln('Два Two');

3: Writeln('Три Three');

4: Writeln('Четыре Four');

5: Writeln('Пять Five');

6: Writeln('Шесть Six');

7: Writeln('Семь Seven');

8: Writeln('Восемь Eight');

9: Writeln('Девять Nine');

10: Writeln('Десятт Ten');

end;

readln;

end.