Зацените прогу на Pascal!

[Хомячок]

Недавно начал программировать на Pascal и написал вот такую прогу. Цель в том, чтобы найти подходящий к ней пароль. Если кто-то сможет найти, мне будет очень приятно. Так что дерзайте!

Program xak;
Uses WinCrt;
Var
pass:string[15];
passasci:array[1..15] of integer;
password:integer;
p:string;
endpassword:integer;
i,n:byte;
label
1;
Begin
password:=0;
1:Writeln('Введите пароль');
Readln(pass);
n:=length(pass);
for i:=1 to n do
passasci[i]:=ord(pass[i]);
for i:=1 to n do
password:=password+passasci[i];
str(password,p);
n:=length(p);
for i:=1 to n do
passasci[i]:=ord(p[i]);
password:=0;
for i:=1 to n do
password:=password+passasci[i];
endpassword:=password*n;
If endpassword=828 then writeln('Вы взломали прогу')
else begin writeln('Неверный пароль!');
goto 1;
End;
End.

 

[masto]

Бредовая цель - любой вменяемый человек найдёт более полезный способ убить время.

 

[Хомячок]

Просто ее вообще никто не сможет взломать, вот так и говорите!

 

[masto]

Анекдот про неуловимого Джо знаешь?
хотя если хочется потешить собственное самолюбие, можешь считать что так оно и есть, не буду тебя разочаровывать.

 

[dmMrak]

Использование меток в паскале считается плохим тоном программирования.