Перечисли, что получили римляне от завоеваний?

Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
end.