1) Написать программку , которая выводит сумму всех чисел , кратных

Program p1;
var i,sum:integer;
begin
sum:=0;
for i:=3 to 3000 do
  if i mod 3 = 0 then sum:=sum+i;
writeln(sum);
end.

program p1;
var i,d1,d2:integer;
sum,x:real;
begin
x:=5;
sum:=0;
i:=0;
while x lt;= 20 do
  begin;
  i:=i+1;
  x:=x*1.1;
  end;
writeln('Больше 20км в ' ,i, ' денек');
x:=5;
sum:=0;
i:=0;
while sumlt;=100 do
  begin;
  i:=i+1;
  sum:=x+sum;
  x:=x*1.1;
  end;
writeln('Суммарный пробег превысит 100км в ' ,i, ' денек');
end.