заполнить массив В(1 to 7) случайными числами из [-12,7] и определить сумму элементов с четными индексами

QB7N 7 — WNR8M — 7G9PM — 9D8N6 — VCDQD

GHT5E — NGERS — NGTE0 — 98DNE — VBDSO

NGR89 — DNEK6 — JHI96 — 5KGuT — MUP5T

NR78E — VB69T — YzCQ7 — DSO5S — OS06S

RE686 — DC6WD — GVD76 — s7RT6 — N6GNT

SKT35 — 1SH7H — 2DIHV — 3FF7H — 25F73

123F5 — 5VJ6N — 4F6F3 — DGF53 — 64SGS

D5GUD — 6GK8F — EFU8D — RE5G5 — W4Y6G

RFHFR — 125G6 — 245F7 — 2TG78 — 12ED7

27H73 — B7YDS — 45FU8 — X5HF5 — 2SD57

2DTUI — 4GDFD — 43HGF — HFG65 — B475F

FDDF7 — S67HH — 4HGCX — F7UEC — 45EHG

ERG5G — CY7CS — FVI74 — D6RCF — THFRF

SDY4C — DGVC5 — CCY4X — 4GXBB — BVHVC

VHYJC — 35VJM — CY5EC — VJ6DF — Y4REG

RVHGD — 5GJGD — HRG6D — 5HDR4 — G45YH

4F6F3 — HRG6D — NR78E — VCDQD — VB69D

23TFG — BJDB5 — UIN5G — 65JCT — VJ7YG

VU6EV — IKYH5 — CY65W — VU6RV — 4FGUT

R4UYG — T5HCT — CUTIF — T8654 — V8547

5HCCY — UBVKU — 4D7OG — 457UD — 5TS67

46S78 — 6RJ84 — D7854 — U856N — 6I89C

47FJN — 4NBUV — MCFUU — DVBJD — 5YDBD

Это все ключи но их могли уже забрать по этому на до проверить)

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -