прога з паролем, вообще полний ноль Опции

[amator_roma]

Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран.

М

Пиши на Русском языке.

Сообщение отредактировано: klem4 - 17.06.2008 19:45

[FreeD]

то заполняет весь экран

Чем заполняет?

Добавлено через 14 мин.

Program Password;
Uses crt;
Const
  Pass='Pascal';
Var
  EnterPass:string;
  fl:boolean;
Begin
  fl:=false;
  repeat
    clrscr;
    write('Enter Password: ');
    readln(EnterPass);
    clrscr;
    If EnterPass=Pass then
      Begin
        writeln('Access Resolved'); {Вместо этой строчки можно вставить какое-то заполнение}
        readln;
        fl:=true;
      End
      else
      Begin
        writeln('Access Locked');
        writeln('Try again');
        readln;
      end;
  until fl;
End.