“Loop Pascal için” kodu Cevap

Loop Pascal için
program for_loop;

var
    i : Integer;
    max : Integer;

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