Поделитесь своими знаниями, ответьте на вопрос:
Определить рекомендуемый возраст для вступления в брак, если возраст жениха равен удвоенному возрасту невесты минус тринадцать, а возраст невесты равен возрасту жениха, делённому пополам плюс восемь. Составить программу.
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;
Объяснение: