заданы два числа. является ли желая бы одно число положительным? Пожалуйста,

Program z1;  Var a,b:integer;     Begin  write('Введите 1-ое число - ');  readln(a);  write('Введите 2-ое число - ');  readln(b);  if (agt;0) then writeln('Является')           else if (bgt;0) then writeln('Является')                         else writeln('Не является');End.