Составить алгоритм таблицы умножения на 7.

Program tablitsa_umnozhenia_na_7;vari, b: integer;begini := 7;beginwriteln (\'Таблица умножения числа \', i);for b := 2 to 10 dowriteln (i , \' * \' , b , \' = \', i * b , \' \' );write ( \' \' );end;end.(Программа работает, проверена на PascalABC)