program SumOfCubes;
var
a, b, c, sum: integer;
begin
write('Enter the first number: ');
readln(a);
write('Enter the second number: ');
readln(b);
write('Enter the third number: ');
readln(c);

sum := a a a + b b b + c c c;

writeln('The sum of cubes of ', a, ', ', b, ' and ', c, ' is: ', sum);
end.