PascalABC. Как сделать чтобы получилось равенство!

var a,b: real;
begin
writeln('Чему равно a ');
read(a);
writeln('Чему равно b');
read(b);
if a>b then writeln('a>b') else esle writeln('ab
Помогите пожалуйста!