Дана последовательность

Label c1;
Begin
c1:Write('A');
Write(' ');
goto c1;
End.

USES crt;
const n=15;
var a:array[1..n] of integer;
i,j,tmp,c:integer;
begin
for i:=1 to  n do begin
a[i]:=random(3)+0;
write(a[i]:3);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]=2)AND(a[j]=1)AND(a[i]=0)or(a[j]=0)OR(a[i]=1)AND(a[j]=2)  then begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
end;
writeln( );
writeln('MASSIV WITH tmp');
for i:=1 to n do
write(a[i]:3);
 
end.

Program Znakomen;
 
Var a: array [1..100] of integer;
    i, n, k: integer;
    
Begin
    Write('Vvedite kol-vo chisel w posledowatelnosti: '); Readln(n);
    For i := 1 to n do Begin
        Write('vvedite ', i, ' chislo: '); Readln(a[i]);
    End;
    
    k := 0;
    
    For i := 2 to n do Begin
        if (a[i-1] * a[i] < 0) {esli raznyje znaki, t.e. -*+ < 0, +*- < 0 }
        then k:= k +1;
    End;
    
    Writeln('Znak menjalsja ', k, ' raz');
 
End.

var i,j:integer;
begin
for i:=3 to 8 do
for j:=0 to 7 do
Write(i,j:4);
end.

Program dweposl;
 
Var a, b: array[1..10] of integer;
    i, j, me: integer;
    inquery: boolean;
    
Begin
    Write('Vvedite perwuju posl: '); For i:=1 to 10 do read(a[i]);
    Write('Vvedite wtoruju posl: '); For i:=1 to 10 do read(b[i]);
    
    me := MAXINT;
    
    For i:=1 to 10 do begin
        inquery := false;
        For j:=1 to 10 do begin
            if a[i] = b[i] then inquery := true;
        end;
        
        if not inquery then begin
            if a[i] < me then me := a[i];
        end;
    end;
    
    if (me = MAXINT) then
        writeln('Takih chisel net')
    else writeln('Eto chislo ', me);
 
End.

Program func;
 
Var x, y: real;
 
Begin
    
    writeln('___x___ ___y___');
    x := 0;
    while x <= 10 do begin
        if x <= 1 then 
            y := (x-1)/(2*x*x + 3)
        else
            y := 1.05 * (x-1)*(x-1);
    
        writeln(x:5:1, '   ', y:7:3);
    
        x := x + 0.1;
    end;
 
End.