Ответ:

program kub;

uses crt;

var a:real;

begin

clrscr;

writeln(‘Введите ребро куба’);

readln(a);

writeln(‘Площадь грани =’,a*a);

writeln(‘Площадь полной поверхности =’,a*a*6);

writeln(‘Объем куба =’,a*a*a);

readln

end.