Hello, i would like to use the Readln command to wait for the user to press enter before ending the program.

1.First example - it works fine:

program hello;
    begin
      writeln('Hello world');
      readln;
    end.

2.Second example - it does not work.

program NUMBERS (Input,Output);
var A,B : Integer;
begin
        Write ('Find greater number.');
        Write ('Enter two numbers.');
        Read (A,B);
        if A>B then
                Write ('The greater number is',A)
                else
                Write ('The greater number is',B);
                readln;
end.

Could anybody tell me why it does not work?
Thanks a lot

Yes, it's working fine.
Thank you a lot.

This should probably be on the fpc-pascal mailing list rather than devel.

Something like this solves your problem

program NUMBERS (Input,Output);
var A,B : Integer;
begin
  Write ('Find greater number.');
  Write ('Enter two numbers.');
  Read (A,B);
  if A>B then Write ('The greater number is ',A)
  else
    Write ('The greater number is ',B);
  readln;
  readln;
end.

Because you must hit enter twice.. once after the first read, then once to end the program.

Alternatively:

program NUMBERS (Input,Output);
var A,B : Integer;
begin
  Write ('Find greater number.');
  Write ('Enter two numbers.');
  Read (A,B);
  readln;
  if A>B then Write ('The greater number is ',A)
  else
    Write ('The greater number is ',B);
  readln;
end.