Advertisement
Guest User

Untitled

a guest
Mar 29th, 2020
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1. program MyProgram;
  2. uses Math, SysUtils;
  3. var
  4.     A, B : integer;
  5.  
  6. begin
  7.     ReadLn(A);
  8.     ReadLn(B);
  9.     if A = B then
  10.     begin
  11.         WriteLn('A két szám egyenlő')
  12.     end
  13.     else
  14.     begin
  15.         if A > B then
  16.         begin
  17.             WriteLn('A második szám nagyobb, mint az első')
  18.         end
  19.         else
  20.         begin
  21.             WriteLn('Az első szám nagyobb, mint a második')
  22.         end
  23.     end
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement