Введите переменную с , если переменная в=10. если с больше выводите их сумму , иначе выводите удвоенное произведение.

Program kkk; var c,b,q: integer; begin writeln('vvedite c'); readln(c); b: =10; if c> b then q: =c+b else q: =sqr(c*b); writeln('q=',q); end.

Uses crt; const b=10; var c: integer; begin read(c); if c> b then writeln(c+b) else writeln(2*c*b); end.

Const       a = 0;       b = 10; var       x, y, h: real; begin       h : = 0.5;       x : = a;             repeat               y : = sin(x) / cos(x);               writeln('x = ', x: 4: 1, '  y = ', y: 6: 3);               x : = x + h;       until x > b; end.

Const a=0; b=10; var x,y,h: real; n,i: integer; begin h: =1; n: =round((b-a)/h); x: =a-h; for i: =0 to n do   begin   x: =x+h;   y: =sin(x)/cos(x);   writeln(x: 4: 1,'   ',y: 6: 3);   end; end. результат:   0.0   0.000   1.0   1.557   2.0   -2.185   3.0   -0.143   4.0   1.158   5.0   -3.381   6.0   -0.291   7.0   0.871   8.0   -6.800   9.0   -0.452 10.0   0.648