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

Var
   A:real;
   i:byte;
Begin
Write('Введите число: ');
ReadLn(A);
For i:= 1 to 9 do
    WriteLn(A,'*',i,' = ',A*i);
End.