Составить алгоритм решения следующей даны 2 числа х и найдите сумму наибольшего из этих чисел и наименьшее увеличенного в 3 раза "

Var
x1,x2:integer;
a1,a2:integer;
begin
writeln ('введите число Х1 ');
readln (x1);
writeln ('введите число Х2 ');
readln (x2);
a1:=x1+x2*3;
a2:=x2+x1*3;
if x1>x2 then writeln ('Х1+(Х2*3)=',a1) else
writeln ('X2+(X1*3)=',a2);
end.