Зрение обоняние слух вкус осязание всё вместе это два слова 13 букв

Все вместоорганы чувств 

Var     f: byte;     x: real; begin writeln('выберите тип функции: '); writeln('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); readln(f); while f < > 0 do     begin     write('введите x: '); readln(x);     case f of     1:         if x < 0 then writeln(x,'*(',x,') = ',x*x)         else writeln(x,'*',x,' = ',x*x);     2:         if x < 0 then writeln(x,'*(',x,')*(',x,') = ',x*x*x)         else writeln(x,'*',x,'*',x,' = ',x*x*x);     3:         if x < 0 then writeln('√',x,' = ',sqrt(-x),'i')         else writeln('√',x,' = ',sqrt(x));     4:         if x = 0 then writeln('ошибка: на ноль делить нельзя! ')         else if x < 0 then writeln('1/(',x,') = ',1/x)                   else writeln('1/',x,' = ',1/x);     end;     writeln;     writeln('выберите тип функции: ');     writeln('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');     readln(f);     end; end. пример работы программы: выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 1 введите x: -8 -8*(-8) = 64 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 3 введите x: 14 √14 = 3.74165738677394 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 4 введите x: 0 ошибка: на ноль делить нельзя! выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 4 введите x: 16 1/16 = 0.0625 выберите тип функции: 1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход. 0

Module module1       dim l as double       const pi = 3.1415926535897931       sub main()               console.write("l = ")               l = double.parse(console.readline)               l = l / (2 * pi)               console.writeline("s = " + (pi * l * l).tostring)               console.readkey()       end sub end module пример работы программы: l = 75 s = 447,623277445956