Скачиваний:
288
Добавлен:
04.03.2014
Размер:
374 б
Скачать
Program idiot;
uses crt, m;

var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;

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);

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