Очень очень срочно

[Мирослава]

Пожалуйста, помогите решить задачки в паскале ABC:
1) Посчитайте количество всех натуральных кратных 7 чисел, меньше 100 и выведите эти числа на экран.
2) Найдите сумму всех натуральных кратных 7 чисел, меньше 100.

[DM_bite]

1.

program xD;
var i: integer;
begin
 for i:= 0 to 100 do
  begin
  if i mod 7 = 0 then WriteLn(i);
  end;
  ReadLn;
  end.

2.

program xD;
var i,sum: integer;
begin
sum:=0;
 for i:= 0 to 100 do
  begin
  if i mod 7 = 0 then sum:= sum+i;
  end;
  WriteLn('Summa = ',sum);
  ReadLn;
  end.