Помогите пожалуйста, завтра контрольная, объясните турбо Паскаль (7 класс ) задачи будут примерно такие:
1)для чисел от а до 30,вывести на экран сами числа и их сумму с числом 123.
2)вывести на экран таблицу умножение на 4(1-10)

Program Alph;const n=30;var a,i,:integer;begin  writeln ('*********************************');  writeln ('*   N   *   Число   *   Сумма   *');  writeln ('*********************************');  for i:=1 to n do    begin      a:=random (100);      writeln ('*   ',i,'   *     ',a,'    *    ',a+123,'    *');end;  writeln ('*********************************');end.Program Aeus;const n=10;var i:integer;begin  writeln ('******************************');  writeln ('*   Таблица умножения на 4   *');  writeln ('******************************');  for i:=1 to n do    begin      writeln ('*         4 x ',i,' = ',4*i,'         *');end;  writeln ('******************************');end.