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.