Дано два положительных числа а и в. найти большее и возвести в третью степень

Program Program1;
var a, b: integer;
begin
write('Введите числа: ');
readln(a, b);
if a > b then a:= a*a*a
else b:= b*b*b;
end.

// Никаких гарантий.