Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program7

program prog07;
uses crt;
const login='log07';
 parol='prog07';
var par,log,n: String;
begin
 clrscr;
 write('Введите логин - ');
 readln(log);
 write('Введите пароль - ');
 readln(par);
 if (log=login) and (par=parol)
  then
   begin
    writeln('Пара Логин и Пароль введены верно!');
    writeln('Вы допущены к работе.');
   end
  else
   begin
    writeln('Допущена ошибка при вводе пары Логин/Пароль!');
    writeln('Вы не допущены к работе.');
   end;
 readln;
end.