Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - Pascal ABC

Формулировка задачи:

Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат, а минимальное число увеличивает в 2 раза

Ну пожалуйста кто нибудь помогите мне неразумной с этой задачей...((

Решение задачи: «Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат»

Листинг программы

procedure Nyshka(var a, b: double);
begin
  if a > b
    then begin
      a := a * a;
      b := b * 2
    end
    else if b > a
      then begin
        b := b * b;
        a := a * 2
      end
end;

Объяснение кода листинга программы

Создается процедура с именем Nyshka и двумя переменными типа double с именами a и b.
В блоке if проверяется, какое из двух чисел больше.
Если число a больше числа b, то выполняются следующие действия:
- число a умножается на само себя (a := a * a);
- число b умножается на 2 (b := b * 2);
Если число b больше числа a, то выполняются следующие действия:
- число b умножается на само себя (b := b * b);
- число a умножается на 2 (a := a * 2);
В блоке else проверяется, какие числа были сравнены в блоке if и выполняются соответствующие действия.
Код завершается без использования вложенных списков.