Введите три числа a,b,c. определите кол-во положительных чисел в данном наборе. пример ввода: 3, -2 ,9; пример вывода: кол-во положительных чисел равно 2

program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
readln(b); 
readln(c); 
for i:=1 to 3 do begin  
if i>0 then k:=k+1;  
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил