Напишите для паскаля, . с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17.

Program  chik; var k,i,s,a: integer; begin s: =1; k: =0; for  i: =1  to  17  do begin read(a); if  (a  mod  17< > 0)then  begin k: =1; s: =s*i; end; end; if  k=1  then   write(s)else write(0); end. 

while (true) {

           Scanner InfoAge = new Scanner(System.in);

           System.out.println("Введите свой возраст: ");

           int age = InfoAge.nextInt();

           switch (age){

               case 1:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 2:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 3:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 4:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 5:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 6:

                   System.out.println("Ты можешь ездить только в специальных креслах!");

                   break;

               case 7:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 8:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 9:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 10:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 11:

                   System.out.println("Ты можешь ездить уже на заднем сидении без специального кресла");

                   break;

               case 12:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 13:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 14:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 15:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 16:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 17:

                   System.out.println("Ты можешь ездить уже на переднем сидении");

                   break;

               case 18:

                   System.out.println("Ты можешь уже водить машину сам!");

                   break;

               default:

                   System.out.println("Такого пункта выбора не существует!");

           }

       }

PascalABC.Net

procedure Rad(a: real; n: integer);var  R, R2: real;begin  R := a / (2 * sin(pi / n));  R2 := R * cos(pi / n);  Println('Радиус (Описаный): ', R);  Println('Радиус (Вписаный): ', R2);end;begin  var a := ReadReal('Введите A: ');  var n := ReadInteger('Введите N: ');  Rad(a, n);end.

Varian 2

program HappyCoder; var  R, R2, A: real;  n: integer; begin  Writeln('Введите A: ');  Read(A);  Writeln('Введите N: ');  Read(n);  R := a / (2 * sin(pi / n));  R2 := R * cos(pi / n);  Writeln('Радиус (Описаный): ', R:0:3);  Writeln('Радиус (Вписаный): ', R2:0:3); end.