Помогите создать программу паскаль для задачи:
Даны два различных вещественных числа.Определить :
а)Какое из них больше;
б)Какое из них меньше;

vara,b:real;beginreadln(a,b);if a=b then writeln('Они равны')else if a>b then writeln(a,' больше ' ,b)else writeln(b,'  больше ' ,a);end.