program Array1;
var
i:integer;
N:integer;
a: array [1..10] of integer;
max:integer;
begin
writeln('Введите N (N<=10)');
 readln(N);
 writeln('Введите значение массива');
 for i:=1 to N do read(a[i]);
 max:=1;
 for i:=2 to N do if a[i]>a[max] then max:=i;
 dec(N);
 for i:=max to N do a[i]:=a[i+1];
writeln(' Ответ ');
 for i:=1 to N do write(a[i],' ');
end.

program Matrix1;
var
j,i:integer;
Sum:integer;
a: array [1..5,1..5] of integer;
begin
// Решение
 for i:=1 to 5 do begin
 for j:=1 to 5 do a[i,j]:=i+j;
 end;
// Ответ
writeln;
writeln('Ответ');
 for i:=1 to 5 do begin
 writeln;
 Sum:=0;
 for j:=1 to 5 do begin write(a[i,j],' '); inc(Sum,a[i,j])end;
 write('сумма строки = ',Sum);
 end;
end.

program Matrix1;
var
j,i:integer;
N: array [1..5,1..6] of integer;
M: array [1..4,1..5] of integer;
begin
// Решение
 for i:=1 to 5 do
 for j:=1 to 6 do N[i,j]:=random(100);
 for i:=1 to 4 do
 for j:=1 to 5 do M[i,j]:=random(100);
writeln;
writeln(' элементы кратные трем из N[] ');
 for i:=1 to 5 do  begin
 writeln;
 for j:=1 to 6 do if (N[i,j]mod 3)=0 then write(' N[',i,',',j,']=',N[i,j]);
 end;
writeln;
writeln(' элементы кратные трем из M[] ');
 for i:=1 to 4 do begin writeln;
 for j:=1 to 5 do if (M[i,j]mod 3)=0 then write(' M[',i,',',j,']=',M[i,j]);
end;
end.

uses crt, graph;
var gd,gm,ch:integer;
s:string;
begin
randomize;
initgraph(gd,gm,'c:\tp7\bgi');
cleardevice;
repeat
ch:=random(10);
str(ch,s);
setcolor(random(16));
sound(random(10)*20+100);
outtextxy(random(630)+5,random(450)+10, s);
delay(200);
nosound;
until keypressed;
s:=readkey;
end.

uses crt;
var ch:integer;
begin
randomize;
clrscr;
repeat
ch:=random(10);
textcolor(random(15)+1);
sound(random(10)*20+100);
gotoxy(random(80),random(25));
writeln(ch);
delay(200);
nosound;
until ch=9;
readln
end.

Var
 N,k:integer;
 M,V:longInt;
Function Ideal(W:Integer):Boolean;
var
 i,Sum:longInt;
begin
 Sum:=0;
 For i:=1 to W-1  do
  If (W mod i)=0 then Inc(Sum,i);
 Ideal:=(Sum=W);
end;
Begin
 Write('M= ');
 Readln(M);
 V:=0;
 For k:=2 to M do if Ideal(k) then V:=V+k;
Write('Сумма = ',V);
End.

Var
 N,k:integer;
 j,M,V:longInt;
Function Ideal(W:Integer):Boolean;
var
 i,Sum:longInt;
begin
 Sum:=0;
 For i:=1 to W-1  do
  If (W mod i)=0 then Inc(Sum,i);
 Ideal:=(Sum=W);
end;
Begin
 Write('M= ');
 Readln(M);
 V:=0;
 k:=1;
 j:=3;
 if M>=6 then
begin
  V:=6;
 while k<=M do
 begin
 if Ideal(k) then V:=V+k;
 k:=k+j*j*j;
 inc(j,2);
 end;
end
 else V:=0;
Write('Сумма = ',V);
End.