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('Привет, ', name);
  14. ReadKey;
  15. end.
  16.  
  17.  
  18.  
  19.  
Success #stdin #stdout 0.01s 5320KB
stdin
Standard input is empty
stdout
Введите ваше имя: Привет,