и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"
Когда мы копируем рисунок в буфер, то он определенного размера. Создадим второго слона. Для этого надо выполнить все 4 команды: 1,2,3,4. Второй слон стал на 80% меньше первого. Создадим третьего слона. Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон. Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4. Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз. ответ: В) повторить (1,2,3,4; 6)
Ну если просто вопрос-ответ
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.