fork download
  1. program autogrill;
  2. var Q,i,j,lung: Int64;
  3. t : char;
  4. grillaperti,p: string;
  5.  
  6. Procedure inizia;
  7. begin
  8. SetLength(grillaperti,0);
  9. lung:=0;
  10. end;
  11.  
  12. procedure apri(p :string);
  13. begin
  14. Insert(p,grillaperti,lung);
  15. SetLength(grillaperti,lung+1);
  16. lung:=length(grillaperti);
  17. for j:=0 to lung do writeln(grillaperti[j]);
  18. end;
  19.  
  20. procedure chiudi (p:string);
  21. begin
  22. Delete(grillaperti,lung-1,1);
  23. SetLength(grillaperti,lung-1);
  24. lung:=length(grillaperti);
  25. for j:=0 to lung do writeln(grillaperti[j]);
  26. end;
  27.  
  28. procedure chiedi(p:string);
  29. begin
  30. writeln('ciao');
  31. end;
  32.  
  33. begin
  34. readln(Q);
  35. for i:=0 to Q-1 do
  36. begin
  37. readln(t,p);
  38. if t='a' then apri(p)
  39. else if t='c' then chiudi(p);
  40.  
  41. end;
  42.  
  43. end.
  44.  
Success #stdin #stdout 0s 5312KB
stdin
7
q 3
a 5
q 4
a 2
c 5
a 6
q 4
stdout

 

 
2

2

 
6