2025-10-14 21:21:47 +03:00
|
|
|
|
// Цикл repeat. Контроль ввода
|
2015-05-14 22:35:07 +03:00
|
|
|
|
begin
|
2025-10-14 21:21:47 +03:00
|
|
|
|
var mark: integer;
|
2015-05-14 22:35:07 +03:00
|
|
|
|
repeat
|
2025-10-14 21:21:47 +03:00
|
|
|
|
Println('Введите оценку (2..5):');
|
|
|
|
|
|
mark := ReadInteger;
|
|
|
|
|
|
if (mark < 2) or (mark > 5) then
|
|
|
|
|
|
Println('Оценка неверная. Повторите ввод');
|
|
|
|
|
|
until (mark >= 2) and (mark <= 5);
|
|
|
|
|
|
Println('Вы ввели оценку', mark);
|
|
|
|
|
|
end.
|
