, напишите на языке паскаль.

1) в лодке поехали 2 разбойника, один остался на другом берегу, а второй поплил за другими, на старте остались один разбойник и три купца

2) разбойник взял на борт одного купца и висадил его к разбойнику на другой берег, итого осталось на старте 2 купца и 1 разбойник

3) разбойник взял еще одного купца и привез его на финиш, на старте осталось по ровну, а на финише 2 купца и 1 разбойник

4)разбойник взял купца, на финише 3 купца и 1 разбойник, а на старте 1 разбойник

5)разбойник перевез оставшегось разбойника, итого на финише 3 купца и 3 разбойника

 

Var a,b,c,d,i,f,g,h,n:integer;
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1; 
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1; 
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d); 
writeln('количество нечётных делителей ==>',i); 
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f); 
writeln('количество делителей больших b ==>',n); 
end.