Написать на языке...

Написать на языке 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);
for i:=1 to 15 do begin
if c=0 then inc(s1) else inc(s2);
if c<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.