А) Определите количество полей
б) Определите количество записей
с) Определите поля, которые могут быть использованы в качестве ключевого;
д) Определите типы полей;
е) Определите, какие записи из таблицы "Тестирование" будут выведены в результате за по условию: Возраст>15 и Фамилия = *а
ф) Запишите условие отбора для таблицы "Тестирование", которое позволит получить сведения об учениках мужского пола, которые младше 17 лет.
​

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

закодированный текст: byck is my dog.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.