{* Вывод на экран приветствия *}

Unit STR_1;
Interface
Implementation
Begin
 writeln('Пользователь вводит имя, программа выводит на экран приветствие');
End.

Program str_1;

Uses str_1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  s : String;
Begin
  writeln('Vvedite imja');
  readln(s);
  writeln('Privet ', s);
  readkey; {* Ждем нажатия любой клавиши *}
End.