Пользователь ввел 2 числа. если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. напишите программу, .

Var   a, b: real; begin   write('введите через пробел два числа: ');   readln(a, b);   if a < b then writeln(a + b)   else writeln(a - b) end.

Program a1; var a, b, c, r: real; begin writeln (' введите значение a'); readln (a); writeln ('введите значение b'); readln (b); if abegin c: =a+b; writeln ('c=', c); end else r: =a-b; writeln ('r=", r); end; end.

Исходя из всего увы без обьяснения я просто долго прикидывал но яблони у француза абрикосы у немца вишни у поляка черешня у шведа груши у далее бегает француз в тенисс играет швед в гольф поляк пловец и прыгает потом на скрипке играет и швед поляк на рояле еще играет на трубе француз на барабанах (ударных) живут они короче француз слева от центра прямо в центре поляк с правого края швед с левого края а справа от центра теперь возраст французу 40 немцу 45 поляку 35 шведу 50 30 и ответ тогда 50 лет шведу ав гольф играет

линейный - начало-нарезать ломтик хлеба - намазать его маслом-отрезать ломтик сыра- положить сыр на хлеб - конец

развлетвляющийся - подъехал иван царевич к камню - направо пойдешь? - 1)голову сложишь -2) коня потеряешь - конец

циклические - определение фальшивой монеты

начало -  положить  по  одной  монете  на  каждую  чашу  весов,  третью  монету  отложить  в  сторону-весы  в  равновесии? - да(отложенная монета фальшивая) -нет(монета на поднявшийся вверх чаше фальшивая) - конец