Помогите пожалуйста)Нужно составить в паскале программу для проверки пароля, совсем не...

Question

Помогите пожалуйста)
Нужно составить в паскале программу для проверки пароля, совсем не понимаю паскаль, для меня это темный лес!)

Answer 1

Var password,number:longint;
begin
  password:=9379992;{our password}
  writeln ('Enter the password: ');
  readln (number);
  if number=password then writeln ('ACCESS GRANTED') else
    writeln ('ACCESS DENIED!!!');
  readln;
end.