Составить программу выводящую на экран квадратные корни десяти первых чисел кратных введённому с точностью до 0,01.- Pascal(Паскаль)

uses crt;

var
  k, i: integer;

begin
  clrscr;
  write('Введите натуральное число для определения кратности k=');
  readln(k);
  writeln('Квадратные корни первых 10 чисел, кратных ', k);
  for i := 1 to 10 do
    writeln(#251, k * i, '=', sqrt(k * i):0:2);
  readln

end.