Помогите составить программу ! Составьте программу выводящего таблицу умножения любого введённого числа

program tablisa_umnogenya;  var i,x,a: integer;  begin   read(x);  a:=0; for i:=1 to 10 do   begin    a:=a+x;    writeln(a);  end;  end. эта программа на Паскаль, на оценку среднюю, тк считаю что на оценку повыше, недостаточно понятное оформление, если на оценку повыше, то заменить строку "writeln(a); " на "writeln(x,'*',i,'=',a);"