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

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