Напечатать таблицу умножения на 5 через паскаль.

Program multiplication;
var i : byte;
begin   
for i:=1 to 10 do        
 writeln('5*',i,'=',5*i);
end.

Var n,i:int64;
begin
writeln('До какого числа');
read(n);
for i:=1 to n do begin
   writeln('5*',i,'=',5*i);
   end;
end.