Составьте алгоритм определения количества положительных чисел а в с d переданных значений

Var

a, b, c, d:integer;

begin

write ('a: '); readln (a);

write ('b: '); readln (b);

write ('c: '); readln (c);

write ('d: '); readln (d);

var arr:=Arr (a, b, c, d);

write ('Кол-во положительных: ');

writeln (arr. where (x->x>0). Count);

end.