Составить алгоритм решения следующей задачи даны 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.