Var a: real;
begin
write('Введите сторону куба = ');
readln(a);
writeln('Объем = ', a * a * a);
writeln('Площадь поверхности = ', 6 * a * a);
end.
Листинги обеих программ и скриншот результатов их работы в приложениях.
Переменная у не изменяется. Следовательно, у=5
В результате суммы переменная х увеличилась на 5. х=3-5, х=-2