Напечатать таблицу квадратных корней из чисел от 1 до 20 (программа Паскаль)

program z3;
uses crt;
var i: integer; b: real;
begin
for i:=1 to 20 do
begin
b:= sqrt(i);
writeln (i: 4, b:7:2);
end;
end.