Помогите справиться с заданием.
Нарисовать блок-схему и написать программу на языке Паскаль.
Подсчитать сумму чисел от 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.

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

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

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

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

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

Звать его Turbo Pascal 7.0

Точно. C этой строчкой все выглядит так:
Нажмите для просмотра прикрепленного файла
Без нее выдает следующее сообщение:
Нажмите для просмотра прикрепленного файла
У него даже библиотеки CRT нет(((