)написать программу ввода с клавиатуры значения ребра куба. вычислить и вывести на экран значения объема и площади полной поверхности

Var
a,v,s:integer;
begin
writeln('Введите сторону');
readln(a);
v:=a*a*a;
s:=6*a*a;
writeln('Объем= ',v,' Площадь= ',s);
end.