1.Найди A,B,C,D, если изначально: A=3,B=6,C=2,D=19. ответ: A=,B=,C=,D=
2.Исходное данное — трёхзначное число x. Выполни для x=145 следующий алгоритм.

a:=x div 100 b:=x mod 100 c:=x mod 10 s:=a+b+c

Объяснение: Настольный теннис — олимпийский вид спорта, спортивная игра с мячом, в которой используют специальные ракетки и игровой стол, разграниченный сеткой пополам. Игра может проходить между двумя соперниками или двумя парами соперников. Задачей игроков является удерживать мяч в игре при ракеток — каждый игрок после одного отскока мяча на своей половине стола должен отправить мяч на половину стола соперника. Очко начисляется игроку или паре игроков, когда соперник не может вернуть мяч в соответствии с правилами. Каждая партия продолжается до 11 очков, матч состоит из нечётного количества партий, и играется на большинство побед в партиях.

  const n=5;
var a:array [1..n,1..n] of Integer; 
  i,max,ind,s,j:integer;
begin 
 s:=0;
  Randomize;
  for i:=1 to n do 
  for j:=1 to n do 
    a[i,j]:=Random(100)-50;
for i:=1 to n do
begin 
for j:=1 to n do
  write(a[i,j]:4); 
writeln; 
end; 
j:=6;
   for i:=1 to n do
   begin 
    Dec(j); 
   if a[i,j]<0 then   
   s:=s+a[i,j]; 
  end; 
max:=a[1,2];
 ind:=1;
 for i:=1 to n do 
 if Abs(a[i,2])>Abs(max) then
   begin 
    max:=a[i,2];
     ind:=i; 
 end;
  a[ind,2]:=s;
       Writeln; 
      Writeln; 
 Writeln('a)Summ: ',s); 
 writeln('b)Max: ',max); 
 Writeln; 
      Writeln('c)');
  for i:=1 to n do
begin 
for j:=1 to n do
 write(a[i,j]:4);
 writeln; 
end;
  readln;
end.