Найдите и исправьте ошибки в программе print ("Акция "Доброе дело". ")

print ("Акция 'Доброе дело' . ")

Объяснение:

Или любой другой вариант кавычек

Всю строку вывода нужно "заключить" в одинарные кавычки, то есть '

Объяснение:

Существует 2 типа кавычек специально для таких случаев

НТР (научно-техническая революция) – это скачок в развитии производительных сил общества, переход их в качественно новое состояние на уровне коренных сдвигов в системе научных знаний. 
Исторические этапы научно-технического развития: 
1. изобретения, завершившиеся возникновением машинного производства (17 – 18 вв.); 
2. развитие специальных отраслей науки и прикладных исследований (19 – 1ая половина 20 вв.) - изменение энергетической основы производства, переход к стадии автоматизации производства, создание новых отраслей на чисто научной основе (электротехника, электроэнергетика, химическая промышленность); 
3. превращение науки в непосредственные производительные силы общества – современная НТР. 
Этапы развития современной НТР: 
Первый этап. 
40-е г. — телевидение, транзисторы, компьютеры, радар, ракеты, атомная бомба, синтетические волокна, пенициллин; 
50-е гг. — водородная бомба, искусственные спутники Земли, реактивный пассажирский самолет, электроэнергетическая установка на базе ядерного реактора, станки с числовым программным управлением (ЧПУ); 
60-е гг. — лазеры, интегральные схемы, спутники связи, скоростные экспрессы. 
Второй этап. 
70-е годы — микропроцессоры, волоконно-оптическая передача информации, промышленные роботы, биотехнология; 
80-е гг. — сверхбольшие и объемные интегральные схемы, сверхпрочная керамика, компьютеры пятого поколения, генная инженерия, термоядерный синтез. 
Социальные последствия НТР 
1. безработица; 
2. изменения в профессиональной среде; 
3. сокращение рабочих мест. 

Значит так...очередная нудная программа с простым алгоритмом.

Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.

program test;
uses crt;
var
 arr:array[1..8,1..8] of integer;
 i,j,cou,pr,s,sum:integer;
begin
 clrscr;
 randomize;
 pr:=1;
 s:=7;
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
    begin
     arr[i,j]:=random(127)+2;
     write(arr[i,j],' ');
    end;
   writeln;
  end;

 writeln;
 for i:=1 to 8 do
  for j:=1 to 8 do
   begin
    if (arr[i,j]>18) and (arr[i,j]<60) then
     begin
      cou:=cou+1;
      arr[i,j]:=0;
     end;

    if i=j then
     begin
      pr:=pr+arr[i,j];
      write(arr[i,j],' ');
     end;

    if j=s then
     sum:=sum+arr[i,j];
   end;
 writeln;writeln;
 for i:=1 to 8 do
  begin
  for j:=1 to 8 do
   write(arr[i,j],' ');
  writeln;
  end;
 writeln;
 writeln(cou);
 writeln(pr);
 writeln(sum);
readln;
end.