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