15 lines
105 B
ObjectPascal
15 lines
105 B
ObjectPascal
|
|
procedure p;
|
|
var
|
|
c:char;
|
|
begin
|
|
for c:='a' to 'z' do
|
|
begin
|
|
writeln(c.tostring);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
p;
|
|
end.
|