Вычислить сумму естественных чисел,кратных 3,наименьшую 100.Паскаль

Как вводятся числа?

всмысле?

Там вводиться так как и написано

Я на сто процентов задания переписал))

То есть чисто спектр чисел от 1 до 100?

да

А тоесть вычислять сумму пока она меньше 100?

Малое число, кратное 3 - это само число 3. А далее увеличиваем числа на 3...

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=3;
  var s:=0;
  repeat
    s+=n;
    if sgt;=100 then begin s-=n; break end
    else
      if nlt;gt;3 then Write('+',n) else Write(n);
    n+=3
  until false;
  Writeln('=',s)
end.

Результат
3+6+9+12+15+18+21=84

 var i,sum:integer; 
begin 
sum:=0;
 for i:= 1 to 100 do
begin
 if (i mod 3 = 0) and (sum+ilt;100) then
sum:=sum+i;
 end; 
writeln(sum);
 end.