Дана структура базы данных поставщиков и деталей. Поставщики (Номер_пост, Назв_пост, Тел, Город_пост);
Детали (Номер_дет, Назв_дет, Цвет, Вес, Город_изгот_дет);
Проекты (Номер_пр, Назв_пр, Город_пр);
Поставки (Номер_пост, Номер_дет, Номер_пр, Количество
Используя эти отношения, составьте SQL-запрос, выводящий общий вес поставленных деталей «Болт» поставщиком «Металлист».
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.