Записать в формате Паскаля следующее выражение:
А) 3cosx – 4sinsin x
b) ^(ax3-bx)+2^(x5+c)
a2 b2 c2-6x

2) При записи выражений в формате Паскаль были допущены ошибки. Найдите их:
А) 2*cos x –ax2
b) 2*x – 3 sin(x)2

3. Восстановите исходную (математическую) запись по записи в формате Паскаль:
a) 3*cos(x) – sin(x) + 3/(2sin(x)/cos(x))
b) 2*exp(x) – sqr(x)*sqr(x)*x

4. Найдите ошибки в записи выражений:
a) 3x^2-sqrt(x3)
b) 2*cos(2*x)=>1,5

​

Как то так, можешь заменить так что бы ракета вверх двигалась.
Program raketa;
uses graphabc;
var i:integer;
begin
For i:=1 to 300 do begin
line (i+300,60,i+240,120);
line (i+240,120,i+240,360);
line (i+360,120,i+360,360);
line (i+240,360,i+360,360);
line (i+300,60,i+360,120);
line (i+240,210,i+210,240);
line (i+210,240,i+240,240);
line (i+360,210,i+390,240);
line (i+390,240,i+360,240);
circle (i+300,150,15);
circle (i+300,210,15);
circle (i+300,270,15);
line (i+240,360,i+180,450);
line (i+180,450,i+420,450);
line (i+420,450,i+360,360);
line (i+330,450,i+330,370);
line (i+300,450,i+300,365);
line (i+270,450,i+270,370);
ClearWindow;
end;
end.
end.

{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
   A:=1;  B:=1;
{ вывод последовательности на экран  }
   for i:=2 to n do
      begin
          C:=A;     A:=A+B;       B:=C; 
          writeln(i,'  ->  ',A,'/',B);
      end;
{ подсчет k - го члена  }
    k:=20;  A:=1;  B:=1;
    for i:=2 to k do 
       begin   
          C:=A;       A:=A+B;       B:=C;
       end; 
    writeln(k,' - ый элемент = ',A,'/',B); 
 end.