Пожалуйста посчитайте написать программу Pascal

var a, b, x:integer;

begin

readln(a, b);

if a > b then x:=b*a+1;

if a = b then x:=3425;

if a < b then x:=(2*a-5)/b;

writeln(x);

end.