Переименовать, перемистить, удалить,сменить значок......
... 12 13 14 15 16 17 18 19 1А 1В 1С 1D 1E
X. Y. Комментарий
4. 35 X >=Y ? нет. тогда идём на цикл по стрелке НЕТ
4+2=6. 35-6=29. X>=Y? Нет. Опять идём на цикл по стрелке НЕТ
6+2=8. 29-8=20. X>=Y? Нет. Делаем цикл по стрелке НЕТ
8+2=10. 20-10=10. X>=Y? Да. Выходим из цикла по стрелке ДА
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.