Даны два числа а и b. Наименее из них возвести в квадрат, наибольшее-в куб и найти среднее арифметическое полученных значений.
В Паскаль.
Заранее спасибо.

Ответ:

var a,b:integer;

begin

writeln('a');  

read(a);

writeln('b'); read(b);

if a>b then write(a*a*a)

else write (sqr(b));

writeln((a+b)/2);

readln;

end.