Помогите пж, не была на теме (в Паскале)

Задание 9. Написать программу.

Спасибо большое, очень помогли!

Program mr_zerkalka;uses crt;var b,a,x:real;beginread(a,b);if a>b thenx:=b*a+1;if a=b thenx:=-10;if a<b thenx:=(a-5)/b;writeln('x=',x:8:2);end.