Var a: string; al: word; i: integer;
begin
writeln ('введите число');
readln (i);
for i: =1 to length(a) do begin
write (chr (al));
end;
end.
что не так? пишут, что параметр цикла for должен описываться в заголовке цикла

а) БД «Погода», запись номер 3.
       ВЛАЖНОСТЬ = 90
       ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
       АВТОР = "Толстой Л.Н."
       ГОД = 1990
в) БД «Успеваемость», запись номер 4.
       ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
       Температура > 0
       ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
       ГОД = 1982
       Полка < 5
в) БД «Факультативы», запись номер 4.
       Увлечения matches "*геологи".
       Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.

((3 + 1) * 3) * 3 = 36 ((3) * 3 + 1 + 1 + 1) * 3 = 36 ((3) * 3 + 1 + 1) * 3 + 1 + 1 + 1 = 36 ((3) * 3 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 = 36 ((3) * 3) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3 + 1) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 (3) * 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 3 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 = 36 ответ 16 def f0(number, log) #   v = 1   n = number + v   log += " + #{v}"   # log += "[" + n.to_s + "] "   return [n, log] end def f1(number, log) #   v = 3   n = number * v   log = "(#{log}) * #{v}"   # log += "[" + n.to_s + "] "   return [n, log] end def countways(start_num, end_num, op_numbers, max_steps = 0)   ways = {}   ways.store(start_num.to_s, start_num)   max_steps = max_steps == 0 ? (start_num - end_num).abs : max_steps   count = 0   for steps in 1..max_steps           # puts "steps = #{steps}"           new_ways = {}           ways.each_pair{|log, num|                   for k in 0..op_numbers-1                           num1, log1 = f0(num, log) if k == 0                           num1, log1 = f1(num, log) if k == 1                           num1, log1 = f2(num, log) if k == 2                           if num1 == end_num                                   # and log.include? ('[8]')                           then                                   log1 += " = " + end_num.to_s                                   count += 1                                   puts log1                           elsif num1.between? (start_num, end_num)                                   new_ways.store(log1, num1)                           else                                   # log1 = log1 + " = " + num1.to_s + " bad "                                   # puts log1                           end                   end           }           # p [steps, ways.size, new_ways.size]           ways = new_ways   end   return count end