program raf105;
var
friends: array of string;
i: integer;
begin
writeln('Вводие имена своих друзей по очереди');
writeln('Чтобы закончить введите 1');
repeat
inc(i);
setlength(friends,i);
readln(friends[i-1]);
until friends[i-1] = '1';
writeln('Список друзей начиная со второго:');
for i:=2 to i-1 do
writeln(friends[i-1]);
end.
program raf105;
var
friends: array of string;
i: integer;
begin
writeln('Вводие имена своих друзей по очереди');
writeln('Чтобы закончить введите 1');
repeat
inc(i);
setlength(friends,i);
readln(friends[i-1]);
until friends[i-1] = '1';
writeln('Список друзей начиная со второго:');
for i:=2 to i-1 do
writeln(friends[i-1]);
end.
PascalABC