Pascal, цикл для, составить программу. 2)составить программу, запрашивающую пароль пользователя. в случае правильности пароля выводится фраза: “можно приступать к работе». если пароль 3 раза введен неверно, то вывести «вызываю охрану»

Var pass,s: string; k: integer; begin pass: ='12345'; k: =0; repeat writeln('введите пароль: '); readln(s); k: =k+1; until (s=pass)or(k=3); if s=pass   then writeln('можно приступать к работе')   else writeln('вызываю охрану'); end. пример: введите пароль: 1 введите пароль: 12345 можно приступать к работе

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино