Дана длина рёбра а. найти оъём куба v=a3 и площадь его поверхности s=6*a2

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