Длина ребра куба "a"(ввод с клавиатуры) какова площадь его поверхности? каков объём куба? решить через программу pascal abc

Программа во вложении.
Program qq;
var a,S,V:integer;
Begin
writeln('Введите длину ребра куба:');
read(a);
S:=6*a*a;
V:=a*a*a;
writeln('Площадь поверхности куба=',S);
writeln('Объем куба=',V);
end.