Составьте программу вычисления y=56x + cosx -x^3

{ответ дан на языке pascal } //1-ая program solution(input, output); var   num: integer;   n1, n2, n3: integer; begin   write('введите 3-значное число: ');   read(num);   n1 : = (num div 100);   n2 : = (num mod 100 mod 10);   n3 : = (num mod 100 div 10);   if(n1 + n2 + n3) mod 2 = 0   then writeln('чётное')   else writeln('нечётное'); end. //2-ая program solution(input, output); var   num: integer;   n1, n2, n3: integer; begin   write('введите 3-значное число: ');   read(num);   n1 : = (num div 100);   n2 : = (num mod 100 mod 10);   n3 : = (num mod 100 div 10);   if(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)   then writeln('равен')   else writeln('не равен'); end. //3-я program solution(input, output); var   a, b, c: integer; begin   write('введите a, b, c: ');   read(a, b, c);   if(a = b) or (b = c) or (c = a)   then writeln('равнобедренный')   else writeln('не равнобедренный'); end.

{ответ дан на языке pascal } // 1-ая program solution(input, output); var   n1, n2, n3: integer; begin   write('введите 3 числа: ');   read(n1, n2, n3);   if n1 < 0   then n1 : = n1 * n1 * n1 * n1   else n1 : = n1 * n1;   if n2 < 0   then n2 : = n2 * n2 * n2 * n2   else n2 : = n2 * n2;   if n3 < 0   then n3 : = n3 * n3 * n3 * n3   else n3 : = n3 * n3;   writeln(n1);   writeln(n2);   writeln(n3); end. //2-ая program solution(input, output); var   num: integer;   n1, n2, n3: integer; begin   write('введите 3-значное число: ');   read(num);   n1 : = (num div 100);   n2 : = (num mod 100 mod 10);   n3 : = (num mod 100 div 10);   if(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)   then writeln('равен')   else writeln('не равен'); end. //3-я program solution(input, output); var   num: integer; begin   write('введите месяц (1 - 12): ');   read(num);   case num   of       1: writeln('январь');       2: writeln('февраль');       3: writeln('март');       4: writeln('апрель');       5: writeln('май');       6: writeln('июнь');       7: writeln('июль');       8: writeln('август');       9: writeln('сентябрь');       10: writeln('октябрь');       11: writeln('ноябрь');       12: writeln('декабрь');   end; end.