Даны действительные числа x, y. Вычислить Написать в паскале.

Question

Даны действительные числа x, y. Вычислить
Написать в паскале.

---

Answer 1

Var x, y:integer;
begin
readln(x, y);
if x > y then x:=(2*x)-(3*y)
else x:=(3*x)-(2*y);
writeln(x);
end.