18.4.1
begin-end 18-24 begin-end begin-end
begin
18-24 begin-end Pascal
for i := 1 to Maxlines do
begin for
begin
Readline(i); (^)
PrecessLine(i);
end end for
begin end
18-25
18-25
A
B
C
D
E
B A A
begin-end begin-end
begin-end 18-26 begin end
18-26 begin-end Pascal
for i := 1 to MaxLines do
begin
ReadLine(i);
ProcessLine(i);
end
ReadLine()
ProcessLine() begin-end
18-27 18-28
18-27 1