Определить рекомендуемый возраст для вступления в брак, если возраст жениха равен удвоенному возрасту невесты минус тринадцать, а возраст невесты равен возрасту жениха, делённому пополам плюс восемь. Составить программу.​

program f1f1f;

var a,b,k:integer;

begin

while 1<2 begin

writeln('если вы муж. введите 1, если жен. - 2');

readln(k);

if k=1 then

begin

writeln('введите ваш возраст');

readln(a);

b:=a/2+7;

writeln('подходящи возраст',b);

end;

if k=2 then

begin

writeln('введите ваш возраст');

readln(a);

b:=a*2-14;

writeln('подходящи возраст',b);

end;

k:=0;

end;

end;

Объяснение: