Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
Запись алгоритма в виде блок-схемы более наглядная и компактная.
Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.