Написати програму “Банкомат”. Програма зберігає логіни і паролі для трьох користувачів:

login1 – 1, password1 – 1111.

login2 – 2, password2 – 2222.

login3 – 3, password3 – 3333.

Користувач вводить свій логін, якщо такого логіна немає – неправильний логін.

Користувач вводить поки не введе правильний логін. Далі користувач вводить пароль, який відповідає цьому логіну, якщо вводить неправильно – введіть ще раз, поки не введе правильний пароль. Після вводу коректної інформації, користувач може зняти певну суму грошей. Користувач вводить суму(сума має бути кратна 5 і не перевищувати загальну кількість грошей в банкоматі, якщо ні – повідомлення, введіть ще раз суму). Далі банкомат видає користувачеві гроші – спочатку крупніші купюри, потім менші(в банкоматі є такі купюри: 50 грн., 20 грн., 10 грн. і 5 грн.). Після того, як сума була видана, банкомат знову чекає на ввід даних від іншого користувача. Якщо в банкоматі не залишається грошей програма повинна видавати повідомлення – Вибачте, в банкоматі немає грошей.

1) В старом стиле Паскаля (тут используется тип uint64, а он достаточен только до n=93):

var

 n, i: Integer;

 a, b, c: uint64;

begin

 Writeln('Печать n первых членов последовательности Фибоначчи');

 Write('Введите n: ');

 Read(n);

 a := 1;

 b := 1;

 for i := 1 to n do

 begin

   writeln('n=', i, '  ', a);

   c := a + b;

   a := b;

   b := c;

 end;

end.

2) Используя возможности PascalABC.NET (тут уже есть тип BigInteger -неограниченное цело число):

var a, b: BigInteger;

begin

 Writeln('Печать n первых членов последовательности Фибоначчи');

 var n := ReadInteger('Введите n:');

 (a, b) := (1, 1);

 for var i := 1 to n do

 begin

   writeln('n=', i, '  ', a);

   (a, b) := (b, a + b);

 end;

end.

Random rnd = new Random();

           Console.Write("N = ");

           int N = int.Parse(Console.ReadLine());

           int K = 0;

           List<int> mas = new List<int>(N);

           for(int i = 0;i < N;i++)

           {

               mas.Add(rnd.Next(0, 10));

           }

           foreach (int i in mas)

           {

               Console.Write(i + " ");

           }

           Console.Write("\nK = ");

           K = int.Parse(Console.ReadLine());

           if (K >= 1 && K <= N)

           {

               mas.RemoveAt(K - 1);

               foreach (int i in mas)

               {

                   Console.Write(i + " ");

               }

           }

           Console.ReadKey();