Pascal - команда присваивания (образец решения)

Пример 1. Дано число а. Вычислить  а³ и вывести результат на экран:

Program primer;
    Var a, b:integer;
Begin
    Write ('Введите число ');
    Readln (a);
    b:=a*a*a;
    Writeln ('Результат=', b);
End.