sem_test.pas

program example(a,c,v);
   const min1=555;
         max1=666;
   type day=(Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);
     df=Monday..Friday;
     vector1=array [1..5] of real;
     int=integer;
     aaa=real;
     t=(erv,erg,rthrt,rtj);
     massiv=array[1..200,1..23] of integer;
     12s=as;
   var
    perem:Monday;
    aa1:array [1..3,7..9] of array [1..3,7..9] of array[1..99] of int;
    m:array['a'..'s',integer] of integer;
    real:integer;
    h,i,t,r,o,w,g,f,g,z,x: integer;
    mas:array[] of int;
    m:array['a'..'s',integer] of integer;
    mas:array['a'..'s',integer] of array[char,1..2] of arrray[1..3] of integer;
    mas:array[array[1..10] of int,s..sd,integer] of array[char,1..2] of arrray[1..3] of integer;
    kl:34..1;
    iopi:'p'..1;
    asdasfsdf:integer;
    c:(asf,dafgr,ewrtg,dgfd,g54,e4tg);
    n,dd:day;
    a,b:vector1;
    tip:min1..max1;
    tip2:max1..min1;
    a1:array [1..3,7..9] of int;

    ff:'t'..'c';

    mn,b1,u: boolean;
    g,s:real;
    gg1:(aa,bb,cc);
    gg2:aa..cc;
    gg3:aa..aa;
    gg4:cc..aa;
    gg5:Monday..cc;
    ff2:integer;
    mm:massiv;
   begin
   perem:=4;
   aa1[1,3][2,4][55]:=ff2 div i*h;
    gg2:=cc;
    gg2:=cc;
    gg1:=aa;

    gg1:=Monday;
    gg4:=gg1;
    gg1:=gg2;

    ff2:=real;
    ff2:=1;
    ff2:=1.3;
    real:=1.3;


    aa1[1,3,2,4]:=5;

    a1[2]:=o;
    m['d',4]:=666;
    a1[3,4]:=o;
    a1['f',5]:='g';
    a1[5,7,9,0]:=s;

    s:=0;
    for x:=1 to w do
     s:=s+a[x]*b[x];
    for Monday:=dd to n do
     a[7]:=3.7;
    n:=Monday;
    x:=Friday;
    x[7]:=4;
    for dd:=Monday to Sunday do
     gg:='g';
    m:=x;
    f:=x*m;
    for n:=Monday to Friday do
     case h of
      '1': g:=3;
        4: h:=6;
      6.6: h:=h
     end;
    for mn:=false to true do
     f:=t*89;
    if (x mod 2)=0 then
    if (day) then
     a[7]:=2+g
    else
     begin
      gg:=5.5;
      f:=m;
      f:=t div 4*gg;
      g:=g;
      f:=5.5 div 4
     end;

    z:=1000 mod (12*y+x div 999);
    s:=z/(x div 667)*21/88+0.112/f;
    b1:=(b1 or u) and not b1;
    e2:=b1 or u and not b1;

    f:=aaa+b*c/123;
    m[]:=5;
    mm[2,3]:=23;
    mm[2]:=5;
    mm[2,2,2]:=5;
    mm['z',2]:=5;
    mm(1,12);
    Aaa:=(3*3-x*4/4)-3*(1+1)*(asd^[5,, gg*ddd[y^, gg=hh*ooo]])-(1);
    dfg+asdf;
    end.