Вывести на экран числа кратные 6 из интервала 50-100.
В Паскале АВС

Var
  i:integer;
begin
  i:=54;
  repeat
    Write(i:3);
    i:=i+6
  until igt;100;
  Writeln
end.

Результат
 54 60 66 72 78 84 90 96