Постройте таблицу умножения целого числа n на множители от 1 до 100. сделайте так, чтобы таблицу можно было перестроить на новое значение n путем изменения содержимого всего одной ячейки. готовую таблицу разместите в книге excel на листе с именем "пересчет"

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 uses crt;     var s,g: string;   i,kol: integer;     begin     clrscr;     g: ='aeiou';     write('текст: '); readln(s);     writeln('исходный текст: ');     writeln(s);     for i: =1 to length(s) do     begin     if s[i] in ['0'..'9'] then s[i]: =' ';     if pos(s[i],g)> 0 then inc(kol);     if s[i] in ['a'..'z'] then s[i]: ='? ';     end;     writeln('кол-во прописных гласных - ',kol);     writeln('преобразованный текст: ');     writeln(s);     readkey   end.

Program project; var   a, b, sq: real; begin   write('введите 1-ое число: ');   readln(a);   write('введите 2-ое число: ') ;   readln(b);   if a> b then   begin       sq: =sqr(a);       writeln('максимальное число: ',a: 0: 4)   end   else   begin       sq: =sqr(b);       writeln('максимальное число: ',b: 0: 4);   end;   writeln('квадрат максимального числа: ',sq: 0: 4);   readln; end.