uzernm.PAS

{* Имя юзера *}

Unit UZERNM;
Interface
Implementation
Begin
 writeln('Имя юзера');
End.

Program pas;

Uses uzernm.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  nameu : String;
Begin
  Writeln('Привет, как тебя зовут?');
  Readln(nameu);
  If nameu = 'Вася' Then
    Writeln('Вася ламер!');
  If nameu'Вася' Then
    Writeln('Привет ', nameu);
  Readln; {* Приостановка программы. Ожидание Enter *}
End.