for loop pascal

Solutions on MaxInterview for for loop pascal by the best coders in the world

showing results for - "for loop pascal"
Lina
05 May 2020
1program for_loop;
2
3var
4    i : Integer;
5    max : Integer;
6
7begin
8  Write('Type a number :');ReadLn(max);
9  for i := 1 to max do
10    WriteLn(i)
11end.