Завтра контрольная, объясните турбо паскаль (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.