Дан фрагмент программы на языке паскаль. чтобы программа продолжила диалог, необходимо ввести строку текста: …. writeln(‘введите пароль, ученик’); readln(pasw); if pasw=’не_могу_знать’ then begin writeln(‘добро в программу’); … end; 1) system 2) ученик 3) не могу знать 4) не_могу_знать 5) pasw 6) writeln(‘ученик’); 7) writeln(‘не_могу_знать’);

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.