var
n: integer;
begin
repeat
writeln('Введите число 5');
readln(n);
until n = 5;
// продолжение программы
end.
