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('леди');<br> if ((b > 25) and (a = 2)) then writeln('сэр');
if ((b <= 25) and (a = 2)) then writeln('господин');<br>end.
Слова только поменяйте, что ли...:)