Помогите решить задачу в Pascal!

Question

Помогите решить задачу в Pascal!Проверьте истинность высказывания: " Не больше двух из трех целых переменных x,y,z положительны. "

Ольга Ниазбаева · Accepted Answer

var x,y,z:real; begin readln(x,y,z); writeln(ord(x>0)+ord(y>0)+ord(z>0)<=2); readln end.

Славинский Игорь · Answer

var q,x,y,z:integer; 
begin 
readln(x); 
readln(y); 
readln(z); 
if x>0 then inc(q); 
if y>0 then inc(q); 
if z>0 then inc(q); 
if q<=2 then writeln('YES') 
else writeln('NO'); 
end.