Даны три действительных числа. Вычислить квадратный корень из тех, значения которых неотрицательны на PascalABC

1. program n_1;
2. const n = 3;
3. var arr: array [1..n] of real;
4. i: integer;
5. begin
6. for i := 1 to n do begin
7. write ('arr[',i,'] := ');
8. readln (arr[i]);
9. end;
10. for i := 1 to n do begin
11. if arr[i] >= 0 then arr[i] := sqrt(arr[i]);
12. writeln ('arr[',i,'] = ', arr[i]);
13. end;
14. end.