program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>