Разработать алгоритм и написать программу для следующей задачи: для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно, как удвоенный возраст девушки минус 14. ЧЕРЕЗ ОПЕРАТОРА CASE ПАСКАЛЬ заранее спасибо))

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal:

program AgeForMarriage;
var
ageMan, ageWoman, ageCandidate: integer;
begin
writeln('Введите возраст мужчины:');
readln(ageMan);
writeln('Введите возраст женщины:');
readln(ageWoman);
ageCandidate := ageWoman * 2 - 14;
case ageCandidate of
ageMan + 7: writeln('Кандидатура подходит для брака');
else writeln('Кандидатура не подходит для брака');
end;
end.

Данный алгоритм и программа позволяют определить, подходит ли возраст кандидатуры для вступления в брак, исходя из заданных условий с учетом оператора case в Pascal.