Программа предлагает пользователю ввести двузначное число. Если пользователь ошибся, то выдать сообщение "Вводите только двузначные числа".

В чём заключается вопрос?

Var a, b: word;

k: byte;

begin

write ('Введите двузначное число: ');

readln (a);

b : = a;

k : = 0;

while b 0 do begin

a : = a mod 10;

k : = k + 1;

b : = b div 10

end;

if (k 2) then

writeln ('Вводите только двузначные числа')

end.