/
spirzen
/
it-code-examples
Обзор
Документация
Войти
/
spirzen
/
it-code-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
examples/pascal/lab-1140-024/main.pas
24 строки
461 B
Spirzen
Code migration pack
09 июн 2026, 01:41
09 июн 2026, 01:41
cebc284
Код
Авторство
О чём код?
program MenuLoop; var choice: integer; a, b: integer; begin repeat WriteLn('1 — сложить два числа'); WriteLn('2 — выход'); Write('Выбор: '); ReadLn(choice); case choice of 1: begin ReadLn(a, b); WriteLn('Сумма = ', a + b); end; 2: WriteLn('Пока!'); else WriteLn('Нет такого пункта'); end; until choice = 2; end.