Заданы два числа. является ли хотя бы одно число положительным? информатика, операторы ветвления, 9 класс

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