Составьте алгоритм определения количества положительных чисел а в с 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.