uses crt;
 var b,c,n:integer;
 a,p:real;
 begin
 clrscr;
 p:=1;
 for c:=1 to 10 do
 begin
 writeln('vvedite' , c , 'chislo');
 readln(a);
 if a>=0 then
 p:=p*a;
 end;
 writeln(p);
 readkey;
 end.

uses crt;
const
  nn = 4; {и строки и столбцы 0- т.к. матрица квадратная}
type
  matrix=array[1..nn,1..nn] of Real;
var
  a: matrix;
  i,j: integer;
  s:real;
begin
 clrscr;
 Writeln('vvod matrici');
 for i := 1 to nn do
 for j := 1 to nn do
  begin
    Write('Matrix[', i, ',', j,'] : '); 
    Readln(a[i, j]);                      {ну здесь я вроде как ввел матрицу}
  end;

 s := 0;
 for i := 1 to nn do begin
   s := s + a[i,i]; {прибавим элемент главной диагонали}
   s := s + a[i, nn+1-i]; {прибавим элемент побочной диагонали}
 end;

 WriteLn('summa diagonalhyh elementov = ', s:1:4);
 Readln
end.