Question

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

Answer 1

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.