Проблема в том, что если я ввел пароль правильно то действия должны происходить дальше, по началу так и было, но потом каким то образом, программа начала закрываться даже когда пароль правильный. 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.

Призванный    1   27.09.2019 02:40    2