В линейном массиве целых чисел на i-е мест вставить элемент равный корню квадратному из суммы квадратов двух указанных с клавиатуры элементов. Записать в паскале   исправьте ошибки пожалуйста.

program zadacha;
var a:array [1..100] of integer;
i,n,b,c:integer;
s: real;
begin 
write('кол. элементов');
readln(n);
write('элементы массива');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c)+sqrt(b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;- вот не правильно
for i:=1 to n do
write(a[i]:6)
end.

Попробуй так, если в массиве толжен присутствовать корень, то он должен быть типа real)program zadacha;var a:array [1..100] of real;i,n,b,c:integer;s:real;beginwrite('êîë. ýëåìåíòîâ');readln(n);write('ýëåìåíòû ìàññèâà');for i:=1 to n do readln(a[i]);write('b=');readln(b);write('c=');readln(c);s:=sqrt(c*c+b*b);n:=n+1;for i:=n downto n+1 doa[i]:=a[i-1];a[n]:=s;for i:=1 to n dowriteln(a[i]:2:3);readln;end.