Вывести значения квадратного корня целых чисел в диапозоне от 1 до n. n-целое положительное число , введенное с клавиатуры . в паскале

Var N:integer;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
    WriteLn('√',N,' = ',Sqrt(N))
End.