Е,Д,Ё,Е,Ж,Ё,З,Ж,И,З......
Запрос БД предназначен для отбора данных из таблиц по заданным условиям. Это самостоятельный объект БД в отличие от фильтра, который, хоть и отбирает данные по заданным условиям, но не является обэектом БД.
Чтобы нарисовать пуговицу в пэйнте надо сначала надо создать круг затем в этом круге сделать ещё немножко кругов (на ваше смотрение сколько вы хотите) все
Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.