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

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

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