Цикл с постусловием ( repeat, до) требуется ввести двузначное число, если пользователь вводит число не удовлетворяющее условию, то ему предлагается вновь вводить число, до тех пор пока нужное число не будет введено.

Var a:integer;
begin
  repeat
  
// число, которое надо ввести - 47

   writeln('Введите двузначное число');
   readln(a);
  until a<>47;
  writeln('Введенное число ', a);
end.