Как написать программу на языке Pascal которая после неправильного ответа переносит обратно в исходное положение пока не будет правильный ответ цикл короче как записать такой.
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Логично было бы завершить код end `ом
ну это я сам уже знаю
Если человек взялся писать ответ, то это нужно делать качественно, и тут речь даже не идет о том, что это Вам или не Вам.