Помогите задачу сделать PascalABC!

Question

var a,b: real; 
begin 
writeln('Чему равно a'); 
read(a); 
writeln('Чему равно b'); 
read(b); 
if a>b then writeln('a>b') else writeln('b>a') 
end. 
 
Как изменить так чтобы при вводе одинаковых чисел был ответ a=b

Asem · Accepted Answer

var a,b: real; 
begin 
write('Чему равно a '); 
readln(a); 
write('Чему равно b '); 
readln(b); 
if a>b then writeln('a>b') else 
if a = b then writeln(' b=a ') 
else writeln('b>a'); 
readln; 
end.