Question

Как написать программу на языке Pascal которая после неправильного ответа переносит обратно в исходное положение пока не будет правильный ответ цикл короче как записать такой.

Answer 1

Пусть правильный ответ 5

Var a:integer;

Begin

A:=0;

While a<>5 do Readln(a)

<Остальная часть программы>