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

Логично было бы завершить код end `ом

ну это я сам уже знаю

Если человек взялся писать ответ, то это нужно делать качественно, и тут речь даже не идет о том, что это Вам или не Вам.

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

Var a:integer;

Begin

A:=0;

While a<>5 do Readln(a)

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