Проблема в том, что если я ввел пароль правильно то действия должны происходить дальше, по началу так и было, но потом каким то образом, программа начала закрываться даже когда пароль правильный. PascalABC.NET
Program Gamer;
var
key: string;
name: string;
Age: integer;
Height: integer;
Weight: integer;
cartoons: string;
begin
writeln('Добро пожаловать! Для авторизования введите Ваше имя!');
writeln('');
readln(name);
sleep(2000);
writeln(name, ',', ' ', 'Введите Ваш административный пароль');
writeln('');
readln(key);
if(key='wNei3wVrYH~gGNa') then
writeln('Вы авторизовались как администратор!')
else
writeln('Вы ввели неправильно административный пароль!');
sleep(3000);
begin Exit;
writeln('Пройдите небольшой тест, затем результаты напишите на листочке!');
sleep(1000);
writeln('How old are you?');
writeln('');
readln(Age);
if(Age>15) then
writeln('You"re an adult')
else
writeln('You"re not an adult');
sleep(1500);
writeln('Tell me how tall are you?');
writeln('');
readln(Height);
if(Height>30) then
writeln('You"re a very small man!')
else
writeln('You"re already a tall man.');
sleep(2000);
writeln('What is your weight?');
writeln('');
readln(Weight);
if(Weight>100) then
writeln('You"re a very fat person!')
else
writeln('You have the right weight!');
sleep(1500);
writeln('What kind of cartoons do you like?');
writeln('');
readln(cartoons);
sleep(2000);
writeln(name, ' ', 'Все очень превосходно!');
sleep(1000);
writeln('Ваше имя: ', ' ', name);
writeln('Административный пароль: ', ' ', key);
writeln('Возраст: ', ' ', Age);
writeln('Рост: ', ' ', Height);
writeln('Вес: ', ' ', Weight);
writeln('Мультфильмы, которые нравятся: ', ' ', cartoons);
sleep(30000);
end;
end.