Ветвления на Паскале. Программирование
диалога с компьютером
Помогите!

program v1;
uses crt;
var  a,b:integer;
begin 
writeln('Введите возраст Саши: ');
readln(a); 
writeln('Введите возраст Маши: ');
readln(b); 
if a>b then write('Саша старше Маши '); 
if a<b then write('Маша страше Саши '); 
if a=b then write('Маша и Саша - ровесники');
end.