Нужно составить в паскале программу, которая выводит на экран в строку через пробел числа, кратные 10 в промежутке от 100 до 500. ! буду .

Program dfgd;

var
  i: integer;

begin
  for i := 100 to 500 do
    if (i mod 10 = 0)
      then write(i, ' ');
end.

Program Question;
var i: integer;
begin
    for i:=10 to 50 do
          writeln(i*10 + ' ');
end.

Чем плох предыдущий ответ: цикл проработает 400 раз, из которых 360 будут бесполезны.