Возведение в квадрат и извлечение корня

Задача:

Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и квадратов каждого из элементов массива.

Код:


program sq;
var X: array[1..5] of longint;
    i: integer;
Begin
Writeln('Введите 5 целых чисел:');
for i:= 1 to 5 do
Read(X[i]);
Writeln;
for i:= 1 to 5 do begin
Write('X[',i,']= ',X[i]:5,' ');
Write('sqr(',X[i]:5,')= ',sqr(X[i]):10,' ');
Writeln('sqrt(',X[i]:5,')= ',sqrt(X[i]):5:5,' ');
                  end;
Readln;
Readln;
End.