Написать на языке pascal. Дан массив с1, с2 ... с15 состоящий из нулей и единиц. Подсчитать количество 0, количество 1, и количество нулей до первой единицы

var c:array[1 ... 15]of byte;

i, s1, s2, s3:integer; k:boolean;

begin

for i:=1 to 15 do readln (c[i]) ;

for i:=1 to 15 do begin

if c[i]=0 then inc (s1) else inc (s2) ;

if c[i]0 then k:=true;

if k=false then inc (s3) ;

end;

writeln (s1,' ', s2,' ', s3) ;

end.