Найти произведение чисел от 1 до 10

Program one;
uses crt;
var
a,b: integer;
begin
writeln('введите число');
read(b);
for a:=1 to 10 do
writeln('произведение =',a*b);
end.