Составьте алгоритм на паскале, когда было теплее в январе или декабре

Program temp: var temp_12,temp_01: integer; begin write('введите температуру в декабре:   '); readln(temp_12); write('введите температуру в январе:   '); readln(temp_01); if temp_12 =  temp_01 then  write('температура была одинаковой в обоих месяцах! ') esle if  temp_12 > temp_01 then    write('температура в декабре  была больше, чем в январе! ') else   write('температура в январе была больше, чем в декабре! '); end.

Pascal: var a,b,c: real; begin   write ('number 1: ');   readln (a);   write ('number 2: ');   readln (b);   write ('number 3: ');   readln (c);   writeln ('srednee: ',(a+b+c)/3: 0: 4);   readln; end. c++: #include < iostream> #include < iomanip> using namespace std; int main() {     float a,b,c;     cout.setf(std: : ios_base: : fixed,std: : ios_base: : floatfield);       cout < < "number 1: ";     cin > > a;             cout < < "number 2: ";     cin > > b;     cout < < "number 3: ";     cin > > c; cout.precision(4);     cout < < "srednee: " < < (a+b+c)/3 < < endl;     return 0; }

1. с операцией возведения в степень // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var x: =readreal('x=');   var s: =x**3+x**5+x**n;   writeln(s) end. 2. со стандартной функцией возведения в степень begin   var n: =readinteger('n=');   var x: =readreal('x=');   var s: =power(x,3)+power(x,5)+power(x,n);   writeln(s) end. пример n= 8 x= 2.3523 1022.47383513855 3. с собственной лямбда-функцией возведения в степень begin   var n: =readinteger('n=');   var x: =readreal('x=');   var pow: (real,integer)-> real: =(a,b)-> exp(b*ln(a));   var s: =pow(x,3)+pow(x,5)+pow(x,n);   writeln(s) end. 4. с собственной обычной функцией возведения в степень function pow(a: real; b: integer): =exp(b*ln(a)); begin   var n: =readinteger('n=');   var x: =readreal('x=');   var s: =pow(x,3)+pow(x,5)+pow(x,n);   writeln(s) end. 5. на "древнешкольном", в стиле турбопаскаль-1974 языке function pow(a: real; b: integer): real; begin   pow: =exp(b*ln(a)) end; var   n: integer;   x,s: real; begin   write('n='); read(n);   write('x='); read(x);   s: =pow(x,3)+pow(x,5)+pow(x,n);   writeln(s) end.