Код
Program a;
Uses Crt;
Var
i:Integer;
s:String;
Begin
For i:=1 To 5 Do
Begin
GotoXY(1,i);
Read(s); {Выполняется 1 раз ане 5}
End;
End.
Почему процедура Read выполняется в циклах 1 раз.
For i:=1 To 5 Do Begin
GotoXY(1,i);
ReadLn(s);
End;
For i:=1 To 5 Do Begin
GotoXY(1,i);
Read(s);
ReadLn;
End;