Решите пожалуйста задание на ABC_Pascal NET я не знаю как делать

Задачка 4

var

s,b: integer;

begin

b:=0;

for s:=0 to 100 do

if s mod 7=0 then

b:=b+s;

writeln(b);

end.

3-я задачка:

program qq;

var a,b,c,f,m: integer;

begin

writeln('Введите три числа');

readln(a,b,c);

if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then

begin

if agt;b then f:=a else f:=b;

if fgt;c then f:=f else f:=c;

Writeln('Наибольшее число =: ',f);

end

else

if agt;b then m:=b else m:=a;

if mgt;c then m:=c else m:=m;

Writeln('Малое число =: ',m);

end.