12 lines
280 B
ObjectPascal
12 lines
280 B
ObjectPascal
// Öèêë repeat. Êîíòðîëü ââîäà
|
|
var mark: integer;
|
|
|
|
begin
|
|
repeat
|
|
writeln('Ââåäèòå îöåíêó (2..5): ');
|
|
readln(mark);
|
|
if (mark<2) or (mark>5) then
|
|
writeln('Îöåíêà íåâåðíàÿ. Ïîâòîðèòå ââîä');
|
|
until (mark>=2) and (mark<=5);
|
|
writeln('Âû ââåëè îöåíêó ',mark);
|
|
end. |