Как в Паскале делать цикл FOR с шагом, например, 3, 5

uses Crt;
var i: integer;
begin    
 ClrScr;                                 
foe i:= 1 to 15 do
   write('  ', i);                                    
readln
end.

uses Crt;
var i, y, n: Integer;
begin
  ClrScr;
  Write(' Ввести число: ');
  ReadLn(n);
  i:= 1;
  while i <= n do begin
    y:= i * i:  {или что-то делаем}
    WriteLn(y);
    i:= i + 5;
  end;
  ReadLn
end.

for i:=1 to n do
write((i-1)*5+1,' ')

uses Crt;
var i: integer;
begin                                           
ClrScr;                                 
foe i:= 1 to 15 do
   write('  ', i);                                    
readln
end.

1   2   3   4   5   6   7   8   9   10   11   12   13   14   15

1.  uses Crt;
2.  var I, y, n: integer;
3.  begin
4.  ClrScr;
 5.    write(' Ввести число: ');
 6.          readln(n);
  7.           i:= 1;
  8.  while I <= n do begin
   9.    y:= I * i:  {или что-то делаем}
  10.        writeln(y);
  11.             i:= I + 5;
   12.           end;
   13.    readln
   14  end.

Ввести число:  2
1

 program fff;
   uses crt;
    var
     k:integer;
   begin
     k:=1;
     writreln(k);
     repeat
      k:=k+2;
      writeln(k);
     until k>=15;
   end.

 1. for i:= 1 to n do 
 2. write ( (i – 1) * 5 + 1, '   ') ;

1. uses Crt;
2. var i: integer;
3. begin
4. ClrScr;;
5. for i:= 1 to 16 do
6. write((i – 1) * 5 + 1, '   ');
7. readln
8. end.

1  6  11  16  21  26  31  36  41  46  51  56  61  66  71  76

  i:=1;
  while i<=16 do begin
    Write(' ',i);
    Inc(i,5);
  end;

  for i:=0 to 3 do Write(' ',1+i*5);