даны 3 числа, найти количество положительных чисел ответ. как решить впаскале? помогите пожалуйста

var A, B, C, K : Integer;
begin
ReadLn(A, B, C);
K := 0; if A > 0 then Inc(K); if B > 0 then Inc(K); if C > 0 then Inc(K);
WriteLn(K);
end.