Смассивом: задан одномерный массив а на 7 ячеек, заполненные произвольными числами. найти значение квадратных корней из всех допустимых элементов массива. в ячейках такие числа: 4, -3, 16, 9, -1, -9, 25

Const a:array[1..7] of integer=(4, -3, 16, 9, -1, -9, 25);
var i:integer;
begin
writeln('Массив:');
for i:=1 to 7 do write(a[i]:3);
writeln;
writeln('Квадратные корни');
for i:=1 to 7 do
 if a[i]>0 then write(sqrt(a[i]),' ');
writeln;
end. 

Результат:
Массив:
  4 -3 16  9 -1 -9 25
Квадратные корни
2 4 3 5 

//прога на Pascal`e
var 
a: array [0..6] of shortint := (4, -3, 16, 9, -1, -9, 25);
i : byte;
begin
for i:=0 to 6 do
if a[i]>=0 then writeln ('Кв. корень из ', a[i], ' = ', sqrt(a[i]), '; ');
end.