CODE EXAMPLE FOR PASCAL

for loop pascal

program for_loop;

var
    i : Integer;
    max : Integer;

begin
  Write('Type a number :');ReadLn(max);
  for i := 1 to max do
    WriteLn(i)
end.