Question

Даны три числа,если хотя бы одно из чисел больше 0, то вывести True ,в противном случае False

Answer 1

Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.