Помогите

Решить выражение Pascal 3.45+7a/2b

Program qwerty;

Var a, b, rez:real;

Begin

Write ('Введите a и b: ');

Readln (a, b);

If b=0

Then writeln ('Ошибка. На 0 делить нельзя')

Else begin Rez:=3.45+7*a/2*b;

Writeln ('3.45+7a/2b=', rez);

end;

End.