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

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

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.

Решение:
Три варианта для обеда, три варианта для десерта.
Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3).
ответ: 9
P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант:
1)Чертишь три прямоугольника
2)Отводишь от каждого из них по три стреолчки
3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников.
4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.

Смотри, начало отсчета: 0;0
 Сместиться на (1, 3) - оказываемся в (1, 3) 
Сместиться на (1, -2) - прибавляем к  (1, 3) + (1, -2) = (2,1)
кц, в условии сказано что это надо повторить 2раза значит умножаем на 2 = (4,2)
Сместиться на (2, 6) - прибавляем (2, 6) = (6,8)
(6,8) это точка в которой мы окажемся в конце программы, теперь нам надо чтобы чертежник перешёл в начальную точку (0 0), чтобы сделать это мы должны от (6,8)
отнять (6,8), другими словами к (6,8) прибавить (-6,-8).
ответ: (-6,-8) - это первый вариант. В ответе пишем 1