Пожалуйста посчитайте с информатикой пожалуйста. Пожалуйста, срочно...15 поинтов

var a,s,i:integer; 

begin 

a:=0;

for i:=100 to 999 do

if (i mod 3=0) and(i mod 4=0)then begin

s+=1;

writeln(i);

end;

writeln ('Всего: ',s);

end.

Программка №2

var a,s,n,i:integer; 

begin 

a:=0;s:=0;n:=0;

for i:=10 to 99 do

if ((s+i)mod 5=0) then begin

s+=i;

writeln(i);

end;

writeln ('Всего: ',s);

end.