Вывести на экран таблицу умножения на 5

Var i, j:integer;
begin
  writeln('Таблица умножения на 5');
  for i:=1 to 10 do
  begin
    writeln(i, ' умножить на 5 = ', i*5);
  end;
 
end.