Question

Что делает программа?
Program Summ;
Var a, b, c: integer;
Begin
      Writeln ((перевёрнутая запятая, не знаю как написать :D, буду обозначать её букой J) Введите 1-вое число:J );
       Readln (a);
       Writeln (JВведите 2-рое число:J );
       Readln (b);
       c:a+b;
       writeln ( Результат = J,c);
End.

Answer 1

Программа ищет сумму двух чисел

Answer 2

Данная программа выдаёт ошибку. Давайте для начала её отладим
Program Summ;
Var a, b, c: integer;
Begin
      Writeln ('введите первое число: ' );  
       Readln (a);
       Writeln ('Введите 2-рое число:');
       Readln (b);
       c:a+b;                                 {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b;  }
       writeln ( 'Результат =' ,c);
End.

ну а теперь можно её и разобрать
Var a, b, c: integer;                              Объявляем переменные
Begin
  Writeln ('введите первое число: ' );    выводим на экран предложение ввести число
  Readln (a);                                        присваиваем переменной А введённое число
  Writeln ('Введите 2-рое число:');        выводим на экран предложение ввести число
  Readln (b);                                        присваиваем переменной В введённое число
  c:=a+b;                                         Присваиваем переменной С сумму чисел А и В
writeln ( 'Результат =' ,c);                    Выводим результат
End.