Вычислить значение функции для любого значения переменной + индивидуальное с условным оператором if , , вычислить значения данных функций. для лабораторной работы, паскаль не понимаю совсем. (во вложении) так же одно с оператором if: задано 3 числа. определить, косинус какого из них является наибольшим

Uses crt; var a,b,q,i: integer;     x: array [1..3] of integer;     input,output: text; begin       assign(input,'input.txt');       assign(output,'output.txt');       reset(input);       readln(input,a);       x[1]: =a mod 10;       x[2]: =a div 10 mod 10;       x[3]: =a div 100;       for i: =2 to 3 do           if x[i]< x[i-1] then begin             q: =x[i];             x[i]: =x[i-1];             x[i-1]: =q;           end;       b: =100*x[1]+10*x[2]+x[3];       writeln(output,3*b);       close(input);       close(output); end.      

Ну не сильно отличается от предыдущего решения uses crt; var a,b,c,d,x,q: integer; begin       readln(a,b,c);       for x: =1 to 3 do       begin           if a> b then begin               q: =a;               a: =b;               b: =q;           end;           if b> c then begin               q: =b;               b: =c;               c: =q;           end;       end;       d: =100*a+10*b+c;       writeln(d); end.