for i:=1 to n do read(число);
ReadLn;
...
for i:=1 to n do
begin
writeln(***)
readln(строка); { Ниче не пропускает }
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.