какая задача решается по следующей программе?
program Test;
var A, B , C: integer;
begin        readln (A, B);
                C:=(A+B) * (B-A);
               writeln (C)
end.

какой результат будет получен, если в качестве исходных значений А и В ввести, соответственно, 7 и 8?

readln (A, B);   -  вводим значения А В

C:=(A+B) * (B-A);  - выполняем уравнение

   writeln (C) -  выводим результат

В итоге получается

С=(7+8)*(8-7)

C=15

Соттветственно будет получен результат 15 на экране.