Введите три числа 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. Вроде так. Точно не знаю, давно на этом языке не кодил