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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.