Скачиваний:
283
Добавлен:
04.03.2014
Размер:
302 б
Скачать
program text;
Uses Crt,Kritin;




BEGIN
clrscr;
assign(f,'f.dat');
rewrite(f);
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® зЁбҐ« ў ¬ ббЁўҐ');readln(n);
for i:=1 to n do begin
Write('‚ўҐ¤ЁвҐ ', i, '-© н«Ґ¬Ґ­в ¬ ббЁў : ');
readln(a[i]);
write(f,a[i]); end;
close(f);
files;

readln;
END.
Соседние файлы в папке MOD