Advertisement
Guest User

Untitled

a guest
Jun 4th, 2020
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.26 KB | None | 0 0
  1. program compare_integers;
  2. var
  3.   a,b : integer;
  4.  
  5. begin
  6.   write('Enter A: '); ReadLn(a);
  7.   write('Enter B: '); ReadLn(b);
  8.   if A-B<0 then
  9.     WriteLn('A < B')
  10.   else if A-B>0 then
  11.     WriteLn('A > B')
  12.   else if A=B then
  13.       writeln('A = B');
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement