Помогите пожалуйста составить программу в ПАСКАЛЕ печатающую таблицу квадратных корней из чисел от 1 до 20.

1. uses crt; 2. var i: byte; {раздел обявления переменных} begin writeln('--------------'); writeln('|Число|Корень|'); writeln('--------------'); for i:=1 to 20 do               //цикл с параметром writeln('|',i:4,' |',sqrt(i):6:2,'|');  //вывод writeln('--------------'); end.