Написать программу для составления таблицы умножения

В году вот делали
Если это то ,то вот

1)Программа для работы с таблицами, как пример MS Excel

2) Каждая ячейка имеет адрес, состоящий из строки и столбца. Может быть текстовая или числовая информация. В базе данных так де могут храниться мультимедиа объекты (картинки, файлы)

3)В режиме значений видно итоговое значение "2" при формуле "=1+1", в режиме формул видна формула, но не видно итоговое значение

4) Перезаписывается итоговое значение для заданной ячейки (если не формула)

5) В электронных таблицах могут быть формулы, а при оформлении использоваться стили. Так же в таблицах возможно виртуальное объединение ячеек. В Базе данных могут храниться разные типы объектов и данных. в том числе файлы или логические переменные. С таблицами базы данных не работают напрямую, все чтение и изменение данных происходит через запросы. Чаще всего язык SQL / PL SQL 

Program z;
var x:array[1..3] of integer;
s,min,i_min,i:integer;
begin
min:=37; {начальное значение минимальной суммы выбрать больше самого большого из 4х-значных чисел 9999, т.е. 9+9+9+9=36}
for i:=1 to 3 do 
begin
readln(x[i]); {ввести очередное число}
s:=x[1] mod 10 + x[i] div 10 mod 10 + x[i] div 100 mod 10 + x[i] div 1000;
{считаем сумму цифр}
if s<min then begin i_min:=i; min:=s; end; {если сумма меньше текущего значения минимума, то считать эту сумму минимальной и запомнить в i_min номер текущего числа}
end;
writeln(x[i_min]); {вывести число с номером i_min как число с минимальной суммой его цифр}
end.