Результат:

const

test = 'test_new';

test2 = 'test_new2';

var

mas:array [1..20] of real;

per:real;

per1:array [1..8] of real;

var_union:record

case integer of

0:(cvar3:real);

1:(un_array:array [1..10] of real);

end;

Begin

per:=4+34.8+1E-3;

mas[1]:=2;

per1[3]:=1.4;

{COMMENTS... zzzzzzzzz }

{comment2}

repeat

Begin

per:=per-2.3;

repeat

Begin

per:=per+2;

write('per= '); write(per); writeln;

End;

until not(per<-1.2E12/(56*3));

End;

until not(not(per<7));

Begin

End;

End.