procedure deleteList(var b:isType);
var
c:isType;
begin
repeat
c:=b;
b:=b^.next;
dispose(c);
until b=nil;Признак окончания списка константа NIL
end;
type
isType=^isList;
isList=record
data:string;
next:isType;
end;
var
a:isType;
procedure createList(var d:isType);
var
b:isType;
c:string;
begin
repeat
readln(c);
if c<>'stop' then
begin
new(b);
b^.data:=c;
b^.next:=d;
d:=b;
end;
until c='stop;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.