Составить программу для нахождения куба числа

program zz1;

var a, y:integer; / / задаем переменные целого типа

begin

write (' введите заданное число а '); / / вводим с клавиатуры исходное число a

read (a);

y: = a * a * a; / / вычисляем заданное число в кубе

write ('куб заданного числа ', y); / / выводим ответ

end.