Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program compare_integers;
- var
- a,b : integer;
- begin
- write('Enter A: '); ReadLn(a);
- write('Enter B: '); ReadLn(b);
- if A-B<0 then
- WriteLn('A < B')
- else if A-B>0 then
- WriteLn('A > B')
- else if A=B then
- writeln('A = B');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement