Question

How to use readln() inside a while loop in Pascal

Answer 1

program InputReadln;

var x: integer;

begin
  writeln('Enter numbers, 42 to exit:');
  readln(x);
  while x <> 42 do
  begin
	  writeln(x);
	  readln(x)
  end
end.



(*
run:

STDIN
7
83
0
5923
42

Output:
Enter numbers, 42 to exit:
7
83
0
5923

*)

 

70+ SQL courses for beginners and professionals