Написать даны два числа. наименьшее из этих чисел возвести в квадрат, наибольшее в куб. найти среднее арифметическое полученных данных.

Program gt;
var a,b,s,q:real;
begin
readln(a,b);
q:=0;
if(a>b)then begin
a:=a*a*a;
b:=b*b;
q:=1;
end;
if(q=0)then begin
b:=b*b*b;
a:=a*a;
end;
s:=(a+b)/2;
writeln(a,' ',b,' ',s);
end.