#include <iostream>
#include <conio.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
system("title Материалы");
system("color 74");
int material;
start:
system("CLS");
cout << "Введите число для уточнение названия детали:\n";
cin >> material;
switch (material)
{
case 1: cout <<"Шуруп\n";
break;
case 2: cout<<"Гайка\n";
break;
case 3: cout<<"Винт\n";
break;
case 4: cout<<"Гвоздь\n";
break;
case 5: cout<<"Болт\n";
break;
default: cout<<"Предмет не найден\n";
break;
}
getch();
goto start;
}
var
n, k, s: integer;
a: array of integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
Exit(False)
else
if n <= 3 then
Exit(True)
else
if (n mod 2 = 0) or (n mod 3 = 0) then
Exit(False);
i := 5;
while (i * i) <= n do
begin
if (n mod i = 0) or (n mod (i + 2) = 0) then
Exit(False);
i := i + 6;
end;
Exit(True);
end;
begin
s := 0;
write('n = ');
readln(n);
SetLength(a, n);
for k := 0 to (n - 1) do
begin
write('a[', k, '] = ');
readln(a[k]);
if IsPrime(k) then
s := s + a[k];
end;
writeln('ответ: ', s);
end.