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

Var
a,b,c,d:integer;
begin
    writeln('Введите трехзначное число: ');readln(a);
    b:= a div 100;
    c:= a mod 100 div 10;
    d:= a mod 10;
    if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
    then writeln('yes')
    else writeln('no');
end.