fork download
copy 
  1. Program Alena;
  2. Begin
  3. Writeln ('Вася');
  4. Writeln('пошёл':11);
  5. Writeln('гулять':15);
  6.  
  7. Writeln ('Вася');
  8. Writeln(' ':4,'пошёл');
  9. Writeln(' ':9,'гулять');
  10. writeln(' ':3,'А');
  11. writeln(' ':2,'АМА');
  12. writeln(' ':1,'АМММА');
  13. writeln(    'АМММММА');
  14. writeln(' ':1,'МММММ');
  15. writeln(' ':1,'ЖЖ ЖЖ');
  16. writeln(' ':1,'МММММ');
  17.  
  18. writeln(' ':3,'А',    ' ':7,'А');
  19. writeln(' ':2,'АМА',  ' ':5,'АМА');
  20. writeln(' ':1,'АМММА',' ':3,'АМММА');
  21. writeln(    'АМММММА',' ':1,'АМММММА');
  22. writeln(' ':1,'МММММ',' ':3,'МММММ');
  23. writeln(' ':1,'ЖЖ ЖЖ',' ':3,'ЖЖ ЖЖ');
  24. writeln(' ':1,'МММММ',' ':3,'МММММ');
  25. End.
Success #stdin #stdout 0s 4528KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Вася
 пошёл
   гулять
Вася
    пошёл
         гулять
   А
  АМА
 АМММА
АМММММА
 МММММ
 ЖЖ ЖЖ
 МММММ
   А       А
  АМА     АМА
 АМММА   АМММА
АМММММА АМММММА
 МММММ   МММММ
 ЖЖ ЖЖ   ЖЖ ЖЖ
 МММММ   МММММ
https://ideone.com/T2T4CB
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!