Определить значение функции X={ a*b+1, если а>b,-b, если а=и,(a-5)/b, если а

program dd ;
var a,b,x:integer;
begin
writeln ('Vvedite a');
readln (a);
repeat
writeln ('Vvedite b');
readln (b);
if b=0 then writeln('На 0 делить нельзя, повторите ввод!');
until b<>0;
if a>b then x:=a*b+1
else if a<b then x:=(a-5) div b
else x:=(-1)*b; 
end.