Question

помогите пожалуйста, решить задачу Паскаль ​

Answer 1

program Posts;

var

 x, y, z, n, total: integer;

begin

 write('Введіть кількість дописів Петрика: ');

 readln(x);

 write('Введіть кількість дописів Марічки: ');

 readln(y);

 write('Введіть загальну кількість учнів: ');

 readln(n);

 z := n - 2; // кількість учнів, окрім Петрика та Марічки

 total := x + y + z * 2; // загальна кількість дописів

 writeln('Загальна кількість дописів: ', total);

end.