Написать программу для определения количества и суммы только положительных чисел из 3, введенных с клавиатуры, на pascal

program ex; var a,b,c,s,k:integer; begin  writeln('Введите первое число');  readln(a);  writeln('Введите первое второе');  readln(b);  writeln('Введите первое третье');  readln(c);  if a>0 then  begin   k:=k+1;   s:=a;  end;  if b>0 then   begin    s:=s+b;    k:=k+1;   end;  if c>0 then   begin    k:=k+1;    s:=s+c   end; writeln('Сумма=',s); writeln('Количество положительных чисел=',k) end.