program example1(input,output);
  var  j,m,n:integer;
       A : array [1..10]  of  real ;  //this is an array
x : real ;
begin
   m:=4;
   n:=10;
   x:=3.14*/12asd ;   /* this is a internal variable.*/
for  j:=1 to n /*loop end value*/  do
  begin 
   /* this line should be deleted 
and this line
should be deleted  too*/
    /*A[j]:=x*j+m;
    write( A[j] );
end;
write(x,m);
end . 
@