Question

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

Answer 1

program InputReadln;

var x: integer;

begin
  writeln('Enter numbers, 42 to exit:');
	repeat
		readln(x);
    if x <> 42 then 
      writeln(x);
  until x = 42
end.



(*
run:

STDIN
4
8
0
6923
42

Output:
Enter numbers, 42 to exit:
4
8
0
6923

*)

 

70+ SQL courses for beginners and professionals