Курсовые по программированию / 20_var_kurs / 1

{ ЋЈа ­ЁзҐ­Ёп:}
{ „ЁаҐЄвЁўл Є®¬ЇЁ«пв®а  ¤®«¦­л а бЇ®« Ј вмбп ў ­ з «Ґ Їа®Ја ¬¬л.}
{ Њ ббЁўл ®¤­®¬Ґа­лҐ.}
{ Union ¤®«¦Ґ­ а бЇ®« Ј вмбп ¤® main()}
{ Ћ¤­®¬г Є«о祢®¬г б«®ўг float ¬®¦Ґв ᮮ⢥вбвў®ў вм ®¤­  ЇҐаҐ¬Ґ­­ п Ё«Ё ¬ ббЁў}
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;
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(per<7);
End.