Склавиатуры вводятся возраст пользователя и его пол (1-ж,2-м). составьте программу, с которой вы красиво поздороваетесь с человеком, в зависимости от его возраста и пола.

Var a, b: integer;
begin
     readln(a);
     if (a = 1) then write('Здравствуйте, Уважаемая ');
     if (a = 2) then write('Здравствуйте, Уважаемый ');
     if ((b > 25) and (a = 1)) then writeln('мадама');
     if ((b <= 25) and (a = 1)) then writeln('леди');
     if ((b > 25) and (a = 2)) then writeln('сэр');
     if ((b <= 25) and (a = 2)) then writeln('господин');
end.

Слова только поменяйте, что ли...:)