Смотри вложение
.........................
Несложно заметить, что по столбцам значения увеличиваются с каждой строкой на 11. Также несложно заметить, то по строке с каждым столбцом значение уменьшается на 10.
Многоточием отмечены еще три столбца.
Для каждой ячейки верна формула a[I,j]=11(I-1)-10(j-1) i=1..7, j=1..7
Begin
var a:=ReadInteger('Введите двузначное число :');
var b:=a mod 10 ; var c:= a div 10;
Writeln('Разность =',c-b);
Writeln('Произведение =',c*b);
end.