000 000 000 000 000 100101100
З клавіатури вводять платежі,які перерахували платежі фірми в сумах W1,W2,W3(грошових одиниць).Вивести найбільшу та найменьшу суму.
пожалуйста! Всё правильно решила! Если нет! Сам решай!
КОРНЕВЫЕ БУСИНЫ ОНИ ДЕРЕВЯНЫЕ
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;
<span>end.</span>