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

Question

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

Answer 1

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.