Создайте алгоритм вычисления произведения Р=(2+2)*(2+3)*(2+4)*(2+5) используя 3 различные структуры повторения

program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);

if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');

writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.

февраль-3 месяц зимы

май-3 месяц весны

август-3 месяц лета

сентябрь не знаю как связать

если первая дробь равна a/b, а вторая - c/d, то их сумма равна е = a/b + c/d = (a*d + c*b)/b*d (без последующего сокращения дроби е).

алгоритм:

1. ввести числа a,b,c,d.

2. рассчитать число е = (a*d + c*b)/b*d.

3. распечатать число е.

1→ 2; 2→3; 3→4; 10→11; 100→101 к числу прибавляется 1

1→2; 2→4; 3→6; 4→8; 10→20; 100→200 число умножается на 2

1→3; 2→5; 3→7; 4→9; 10→21; 100→201 к числу прибавляется следующее число. например: 1+2=3; 2+3=5; 3+4=7; 100+101=201

1→2; 2→1; 3→4; 4→3; 10→9; 11→12; 100→99 если число четное, то отнимаем 1, если нечетное, то прибавляем1.

1→2; 2→1; 3→6; 4→2; 10→5; 11→22; 100→50 четное число делим на 2, нечетное число умножаем на 2

1→1; 2→1; 3→1; 4→1; 10→2; 11→2; 100→3 сколько цифр в числе, такое  число

1→1; 2→2; 3→0; 4→1; 20→2; 21→ 0 если число делится на 3, то 0. если не делится, то ответом будет число 1 или 2, которое нужно прибавить или отнять чтобы получить 0 или число которое делится на 3 без остатка