С клавиатуры вводится возраст пользователя и его пол (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. Слова только поменяйте, что ли…