fork download
  1. program Greeting;
  2.  
  3. uses
  4. Crt;
  5.  
  6. var
  7. name: string;
  8.  
  9. begin
  10. ClrScr;
  11. Write('Тимур');
  12. ReadLn(name);
  13. WriteLn('Привет, Андрей!');
  14. ReadKey;
  15. end.
  16.  
  17.  
Success #stdin #stdout 0.01s 5308KB
stdin
Standard input is empty
stdout
ТимурПривет, Андрей!