Вычислите значение выражения: если b не=а, то вычислять (в+2ха): в. в паскале

Var
  a,b: integer;
begin
  write('Введите a:');readln(a);
  write('Введите b:');readln(b);
  if a<>b then writeln((b+2*a)/b)
    else writeln(a,' = ',b);
end.