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

program zz1;

var a, b:integer; / /задаем переменные целого типа

begin

write ('введите первое число'); / / вводим с клавиатуры первое число

read (a);

write ('введите второе число'); / / вводим с клавиатуры второе число

read (b);

if (a > 0) or (b > 0) / / проверяем на положительность, если есть положительное, то

then write (' одно из двух заданных чисел является положительным ') / / выводим один ответ

else write (' ни одно из двух заданных чисел не является положительным '); / / выводим другой ответ

end.