10 lines
122 B
ObjectPascal
10 lines
122 B
ObjectPascal
unit foreach_unit;
|
|
|
|
procedure Test;
|
|
var s:string;
|
|
begin
|
|
foreach s in ['1a','2a','3a','4a','5a'] do
|
|
writeln(s);
|
|
end;
|
|
|
|
end. |