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.