{$r-}
TYPE
 T=ARRAY[1..1] of Integer;
VAR
 A:^T;
 i,j,k,N,Sum:Integer;
 Pr:LongInt;
BEGIN
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Integer)*N*N);

 Randomize;

 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A^[N*(i-1)+j]:=Random(20)-10;
     Write(A^[N*(i-1)+j]:5);
    end;
   WriteLn;
  end;
 WriteLn;

 Pr:=1;
 Sum:=0;
 For k:=1 to N*N do
  If A^[k]<0 then
   begin
    Pr:=Pr*A^[k];
    Sum:=Sum+A^[k];
   end;

 WriteLn('The sum of negative elements is ',Sum);
 WriteLn('The pruduct of negative elements is ',Pr);

 FreeMem(A, SizeOf(Integer)*N*N);

 ReadLn;
END.

Uses Graph, CRT;
BEGIN
 InitGraph(..);{ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ}
 SetLineStyle(SolidLn,0,ThickWidth);
 Ellipse(200,160,0,360,100,50);
 Ellipse(200,160,0,360,90,40);
 Ellipse(200,320,180,360,100,50);
 Line(100,160,100,320);
 Line(300,160,300,184);
 Line(300,296,300,320);
 Line(300,209,300,271);
 Ellipse(320,240,0,115,50,60);
 Ellipse(320,240,245,360,50,60);
 Ellipse(320,240,0,130,30,40);
 Ellipse(320,240,230,360,30,40);
 Ellipse(300,197,90,270,9,12);
 Ellipse(300,283,90,270,9,12);
 ReadKey;
 CloseGraph;
END.

VAR
 A:ARRAY[1..10] of BYTE;
 i,j:Integer;
 Dummy:Byte;
BEGIN
 Randomize;
 WriteLn('Initial array:');
 For i:=1 to 10 do
  begin
   A[i]:=Random(200);
   Write(A[i]:5);
  end;
 WriteLn;
 WriteLn;

 For i:=1 to 10 do
  For j:=1 to 10-i do
   If A[j]>A[j+1] then
    begin
     Dummy:=A[j+1];
     A[j+1]:=A[j];
     A[j]:=Dummy;
    end;

 WriteLn('Ordered array:');
 For i:=1 to 10 do
  Write(A[i]:5);

 WriteLn;
 ReadLn;
END.

uses crt;
VAR
 S:string;
 cnt,N:byte;
BEGIN
 Clrscr;
 WriteLn('Enter the string:');
 ReadLn(S);
 N:=1;
 cnt:=pos(',',S);
 S:=copy(S,1,cnt-1);
 Repeat
  cnt:=pos(' ',S);
  if cnt>0 then Inc(N);
  S:=copy(S,cnt+1,Length(S));
 Until cnt=0;
 WriteLn('The number words before first coma is ',N);
 ReadLn;
end.

VAR
 x,y:Real;
 i,j:Integer;

Function User_Func(Xuf:Real):Real;
 begin
  User_Func:=Cos(7.0+Xuf/3);
 end;

BEGIN
 For i:=1 to 6 do
  Write('  x    y     ');
 WriteLn;
 For i:=1 to 15 do
  begin
   For j:=1 to 6 do
    begin
     x:=(i+(j-1)*15)/100;
     y:=User_Func(x);
     Write(x:4:2,y:6:3,'   ');
    end;
   WriteLn;
  end;
 ReadLn;
END.

CONST
 N=6; {4}
VAR
 A:ARRAY[1..N,1..N] of Integer;
 i,j:Integer;

BEGIN
 Randomize;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(200)-100;
     Write(A[i,j]:5);
    end;
   WriteLn;
  end;
 WriteLn;

 For i:=1 to N do
  For j:=1 to N-i+1 do
   A[i,j]:=0;

 WriteLn('Transformed matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A[i,j]:5);
   WriteLn;
  end;
 WriteLn;
 ReadLn;
END.

VAR
 A:ARRAY[1..10,1..10] of Real;
 i,j:Integer;
 P:Real;

BEGIN
 P:=1;
 For i:=1 to 10 do
  For j:=1 to 10 do
   begin
    A[i,j]:=(3.0+1.0*i)/j/5;
    P:=P*A[i,j];
   end;

 WriteLn('The product is: ',P);
 ReadLn;
END.

VAR
 i,n:longInt;
 Sum:Real;

BEGIN
 Write('n= ');
 ReadLn(n);
 Sum:=0;
 For i:=1 to n do
  Sum:=Sum+Cos(1.0*i);
 WriteLn('The result is',Sum:10:5);
 ReadLn;
END.

VAR
 H:Byte;
BEGIN
 Write('Enter the hour: ');
 ReadLn(H);
 If (H>4) and (H<=9) then WriteLn('Good morning!') else
 If (H>9) and (H<=17) then WriteLn('Good afternoon!') else
 If (H>17) and (H<=23) then WriteLn('Good evening!') else
 WriteLn('Good night!');
 ReadLn;
END.