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

program b5;
uses crt;
type t = ^elem;
elem = record
       i:real;
       next: t;
       end;
procedure AddElem(var beg:t; val:real);
var x:t;
begin
     New(x);
     x^.next:=beg;
     beg:=x;
     x^.i:=val;
end;
var i,n:word;
    beg:t;
    r:real;
begin
     clrscr;
     write('‚ўҐ¤ЁвҐ Є®«-ў® н«Ґ¬Ґ­в®ў б⥪ : ');
     readln(i);
     beg := nil;
     for n := 1 to i do
     begin
          write('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­в #',n,': ');
          readln(r);
          AddElem(beg,r);
     end;
end.