G2A Many GEOs


a guest Apr 8th, 2020 127 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program abc;
  2. var
  3.     a,b:integer;
  4. begin
  5.     readln(a,b);
  6.     if(a > 0) or (b > 0) then writeln('Одно из чисел больше нуля, либо оба числа больше нуля')
  7.     else writeln('Оба числа меньше нуля');
  8. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand