Answers for "pascal for"

1

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.
Posted by: Guest on September-03-2021

Browse Popular Code Answers by Language