попросить пользователя ввести число 5 и повторять этот запрос, пока пользователь не введет требуемое число

На языке Pascal выглядит так:

var

  n: integer;

begin

  repeat

    writeln('Введите число 5');

    readln(n);  

  until n = 5;

// продолжение программы

end.