{* Задача 40 *}

Unit ZADACH40;
Interface
Implementation
Begin
 writeln('Проверка логина и пароля пользователя, если всё введено правильно, то появится сообщение "Welcome" , если ошибётесь то выводится сообщение "Error". логин - use , пароль - pass. ');
End.

Program identific;

Uses zadach40.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключаем внешние файлы *}
ClrScr; {* Очищаем экран *}
Var {* Необходимые переменные *}
  a : String;
  b : String;
Begin
  writeln('User name');
  readln(a);
  Writeln('Password');
  readln(b);
  If (b = 'pass') And (a = 'use') Then
    writeln('Welcome')
  Else writeln('Error');
    readln; {* Приостановка программы. Ожидание Enter *}
End.