Question

выводить числа от 1 до 10 (пока<10) с шагом 3

Answer 1

Держи Turbo Pascal:
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
  writeln(i);
readln;
end.