01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SUKA

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.