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