Помогите пожалуйста составить программу в ПАСКАЛЕ печатающую таблицу…

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