прикладная математика

uses crt;
var i, x: integer;
     a, b, z, S1, S2: real;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ е: ');
readln(x);
S2:=1;
for i:=1 to 9 do
begin
       a:=cos(x*x)*sin(2*x-1)+4.29;
       S1:=S1+a;
end;

for i:=1 to 6 do
begin
       b:=cos(x*x)*sin(2*x-1)+4.29;
       S2:=S2*b;
end;
writeln('i=1');
writeln('a=',S1:4:2);
writeln('b=',S2:4:2);
writeln('z=',S1+S2:4:2);
readln;
end.

uses crt;
var a, b, c, i: integer;
     const duym=28.353495; duym1=142;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ ­ з «м­®Ґ §­ зҐ­ЁҐ: ');
readln(a);
writeln('‚ўҐ¤ЁвҐ и Ј: ');
readln(b);
writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є: ');
readln(c);
writeln(*);
writeln('duym       ','sm       ','linii');
if (c<10) or (c>15) then
         writeln('ЋиЁЎЄ ! Љ®«ЁзҐбвў® бва®Є ¤®«¦­® Ўлвм ®в 10 ¤® 15!')
else

begin
for i:=a to a+c do
         begin
         duym:=a*duym;
         duym1:=a*duym1;
         a:=a+b;
         writeln('  ', a-1, '         ', duym:6:4, '      ', duym1:6:4);
         end;
end;
readln;
end.