Получи 5(6.48) я верю в тебя (кст где ты учишься)
var
n,k,s,a,b,l,x,y,m,n1:integer;
Begin
readln(n,k,b,x,y,l,a,m,n1);
Write('а. ');
if(n mod 2 = 0) then
begin
a := n;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
if(s > k) then writeln('True') else writeln('False');
end
else writeln('False');
a := n;
s := 0;
Write('б. ');
while(a > 10) do
begin
a := a div 10;
inc(s);
end;
if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');
write('в. ');
a:= n;
while a>10 do
a:=a div 10;
if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');
write('г. ');
a:=n;
s := 1;
while a > 0 do begin
s := s * (a mod 10);
a := a div 10;
end;
if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');
write('д. ');
a := n;
s := 0;
while a > 0 do begin
s := s + a mod 10;
a := a div 10;
end;
if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');
End.