С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных

var   a, b, s: integer; // объявляем переменные целочисленного типа.   label 1;            // объявляем метку.begin   1: write (\'Введите число:\'); // вывод строки на экран.    read(a);                           // считываем число, введенное с клавиатуры.        if (length(inttostr(a)) <> 3) then // проверяем является ли введенное число трехзначным.           begin              writeln(\'Введено неверное число.\');// вывод строки на экран.              goto 1;                                          // переход на метку 1.           end;   while a > 0 do                 // начало цикла.      begin        b := a mod 10;         // определяем последнюю цифру числа.       if (b mod 2 = 0) then // проверяем четность цифры.          s:= s + 1;             // считаем кол-во четных цифр.         a := a div 10;         // удаляем последнюю цифру из числа.      end;   if s = 3 then writeln(\'Да\') // если три цифры числа четные, то выводим строку \"Да\".   else writeln(\'Нет\');end.