Найти площадь грани, площадь полной поверхности и объем куба - Pascal ABC

Формулировка задачи:

3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

Решение задачи: «Найти площадь грани, площадь полной поверхности и объем куба»

Листинг программы

program ine;
var a, res1, res2, res3 : real;
begin
writeln('Введите ребро куба');
readln(a);
res1 := a * a;
writeln('Площадь грани =',res1);
res2 := a * a * 6;
writeln('Площадь полной поверхности =',res2);
res3 := a * a * a;
writeln('Объем куба =',res3);
end.

Объяснение кода листинга программы

В программе объявлены три переменные типа real: a, res1, res2, res3.
Выводится сообщение «Введите ребро куба», и пользователю предлагается ввести значение переменной a.
Значение переменной a возводится в квадрат и присваивается переменной res1.
Выводится сообщение «Площадь грани =», и выводится значение переменной res1.
Значение переменной a возводится в куб и умножается на 6, затем результат присваивается переменной res2.
Выводится сообщение «Площадь полной поверхности =», и выводится значение переменной res2.
Значение переменной a возводится в куб, затем результаты вычислений присваиваются переменным res3.
Выводится сообщение «Объем куба =», и выводится значение переменной res3.