[fpc-devel] readln problem

[L]

> 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.


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.