С:= 0
for i := 1 to 9 do
if A[1] (7) < A[0] (4) then begin
c = 0
end;
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.
<span>Память является инструментом ХРАНЕНИЯ информации </span>