Yes, it's working fine.
Thank you a lot.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of L
Sent: Monday, October 29, 2007 3:49 PM
To: f dvl list
Subject: Re: [fpc-devel] readln problem
> 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.
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
