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

Uses crt;

var a, b:integer;

begin

writeln ('Введите числа: ');

read (a, b);

writeln (power (a, 3) + power (b, 3));

end.

Либо так.

var a, b, j:integer;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Второе число');

readln (b);

j: = (a*a*a) + (b*b*b);

writeln ('Сумма кубов введенных чисел = ', j);

end.