Запишите, пожалуйста, на языке Паскаля. Условие задачи: подсчитать кол-во положительных чисел среди чисел a, b, c .

Program abc;

var a, b, c:real;

var i: integer;

Begin

writeln ('Введите число а');

readln (a);

writeln ('Введите число b');

readln (b)

тоже самое и для с

i:=0

if a>0 then I:=i+1

тоже самое только для б и с

writeln ('Число положительных чисел = , 'i);

End. 

vara,b,c,n,i:integer;beginn:=0;readln(a);readln(b);readln(c);

if a>0 thenn:=n+1;if b>0 thenn:=n+1;if c>0 thenn:=n+1;writeln('kolichestvo polozitelnich=', n)end.