clrscr;
for i:=1 to 3 do writeln('Z(',i,')=',z[i]);
writeln;
for i:=1 to 3 do writeln('U1(',i,')=',U1[i]);
writeln;
writeln(alpha);
Close(f);
readln;
END.

void main(void){
     system("CLS");
     for(int i=1;i<3;i++){
        stdout>>"Z[",i,"] = ",Z[i];
     }
     for(int i=1;i<3;i++){
        stdout>>"U1[",i,"] = ",U1[i];
     }
     stdout>> alpha;
     fclose(f);
}

FILE *f;
Открытие:
<поток> = fopen("путь к файлу", "тип")
r - открыть для чтения;
w - для записи;
w+ - для чтения и записи;

Ввод и вывод данных в файл
getc();
putch();

соответсвенно посимвольно....
fgets();
fputs();

соответсвенно построчно
getw();
putw();