Задача. Любым циклом. Опции

[rydyak]

Всем привет! Снова нужна ваша помощь.
Написать программу, выводящюю все кратные числа 3 до 100.
Какого оператора вставить (вместо "...")

var i,y: integer;
begin
for i:= 1 to 100 do ...;
  y:=i div 3;
  write('Целая часть от деления',y);
  readln;
  end;
end.

Сообщение отредактировано: Lapp - 26.10.2011 23:41

[Lapp]

var
  i: integer;
begin
  for i:= 1 to 100 div 3 do write(i*3:4)
end.

[rydyak]

Благодарю