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

Program Program1; var a, b: integer; beginwrite('Введите числа: ');readln(a, b); if a > b then a:= a*a*a else b:= b*b*b; end.// Никаких гарантий.