Ввести в массив b(5) числа и вычислить корень квадратный из каждого элемента и вывести полученный массив на экран. (информатика. 8 класс. паскаль abc)

Var
i:integer;
a:real;
b:array[0..5] of integer;
begin
for i:=1 to 5 do begin
write('Введите числа массива: ');
readln(b[i]);
a:=sqrt(b[i]);
writeln('ответ: ',a);
end;
readln;
end.