Пусть задана последовательность чисел a, b, c, d. Составить программу вычисления количества K положительных чисел, содержащихся в этой последовательности. Печатать a, b, c, d, K.

var   a,b,c,d,K:integer; begin   write('Введите a,b,c,d: ');   readln(a,b,c,d);   K:=0;   if a>0 then K:=K+1;   if b>0 then K:=K+1;   if c>0 then K:=K+1;   if d>0 then K:=K+1;   writeln(a,' ',b,' ',c,' ',d,' K=',K); end. Тестовое решение: Введите a,b,c,d: -4 5 3 0 -4 5 3 0 K=2