Помогите пожалуйста!!!! Нужно составить программу на паскале: Дано три числа. Найти количество положительных чисел среди них

Спасибо большое!!

Спасибо!!!

В тексте программы описка: находится, как и требовалось, количество положительных чисел, а в опертое вывода написано слово "отрицательных "

var  a,b,c:real;  k:integer;begin  Write('Введите три числа через пробел: '); Read(a,b);  k:=0;  if a>0 then Inc(k);  if b>0 then Inc(k);  if c>0 then Inc(k);  Writeln('Количество отрицательных чисел ',k)end.ПримерВведите три числа через пробел: 23.5 -24 0Количество отрицательных чисел 1

program zadacha;vara: array[1..3] of real;i,k: integer;begink:=0;writeln('vvedite 3 chisla');for i:=1 to 3 do read(a[i]);for i:=1 to 3 do beginif a[i]>0 then k:=k+1;end;writeln('kol-vo polojit.chisel =',k);end.