Мне нужно создать программу или что-то такое в turbo pascal, учитель дал нам конспект с или что это, и сказал сделать программу.вот эти коды. program a1; write ( 'всем'); writeln ( ''); text background (задний план) text color (4); goto xy (40; 10); end. вот такие там коды ( с объяснение что это. ) и из этого надо что-то сделать.я думаю умельцы знают, скажите как ввести все это я вводил по разному не в какую ! или сделайте скрин как вы все ввели.заранее !

Uses Crt;
Begin
  write ( 'всем');
  GotoXY (40,10);
  TextBackGround(14);
  Textcolor (4);
  writeln ( 'привет');
  Readln;
end.

Как то так, можешь заменить так что бы ракета вверх двигалась.
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.