Нужно сделать программу при заданных a, b.

var a, b:real;

begin
writeln('Введите a, b');
readln(a,b);
if a=b then writeln('Ответ: ',-b)
else if a>b then writeln('Ответ: ', a*b+1)
else writeln('Ответ: ', (a-5) /b);
end.