1
0

12 lines
109 B
ObjectPascal

program e;
var
e:integer;
begin
e := 1;
while true do
begin
writeln('e');
end;
end.