даны 2 числа. Большее из этих чисел поделить на 2. Меньшее возвести в квадрат. Вывести сумму этих чисел

var a,b,c:real;beginwriteln('введите два числа');readln(a,b);if a>b then begina:=a/2;b:=sqr(b);c:=a+b;writeln(c)endelsebeginb:=b/2;a:=sqr(a);c:=a+b;writeln(c);end;end.