Ну если просто вопрос-ответ
var a: integer;
b: string;
begin
write('ваш возраст - ');
readln(a);
write('твоё самое любимое увлечение - ');
readln(b);
...
и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"
(например
var a, b, c: integer;
d, e, f: string;
g, h: real;)
...
end.
ответ: Заливка.
Объяснение:
С заливки можно закрасить всю фигуру.