1.Составьте программу которая вычисляет количество натуральных чисел кратных 6 в диапазоне

1. 
program chislo;
var s,i:integer;
begin
for i:=3 to 100 do s:=s div 6;
if s mod 6=0 then begin
readln(s)
writeln('Ваш результат: ', s);
end;
end.

2.
program chetno; 
var s,i:integer; 
begin 
for i:=-20 to 1200 do s:=s div 2;
if s mod 2 = 0 then begin
readln(s); 
writeln('Ваш итог:', s);
end;
end

Третью не помню :(