Guest User

Untitled

a guest
Apr 8th, 2020
134
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