Программы подсчета суммы Опции

[Red]

Помогите справиться с заданием.
Нарисовать блок-схему и написать программу на языке Паскаль.
Подсчитать сумму чисел от 1 до 100, делящихся на 3.
Заранее спасибо!

[Айра]

uses wincrt;
var sum,i: integer;
begin
  sum:=0;
  for i:=1 to 100 do
    begin
      if (i mod 3)=0 then sum:=sum+i;    {если при делении i на 3 остаток равен нулю}
    end;                                 {значит число кратно трем, добавляем его к сумме}
  writeln (sum);
end.

[Lapp]

Айра, скажи - для чего тут wincrt?

[Айра]

Айра, скажи - для чего тут wincrt?

У меня без него (это же вроде подключаемый модуль, или что-то такое) ни одна программа не работает, компилятор какой-то недоделанный. А убирать это из кода я все время забываю..

[Lapp]

И эта тоже не работает? точно?..

Название компилятора - в студию!

[Red]

завтра сдавать программу, надеюсь, что правильно!!! Спасибо!!!

[Айра]

Название компилятора - в студию!

Звать его Turbo Pascal 7.0

И эта тоже не работает? точно?..

Точно. C этой строчкой все выглядит так:

Без нее выдает следующее сообщение:

У него даже библиотеки CRT нет(((