Процедуры и функции. паскаль даны 2 одномерных массива 10 целых чисел. найти сумму квадратов всех элементов массива для которых выполняется неравенство 0

program a;

var i,n : integer;

a,b,c : array [1..10] of integer;

 

begin

for i: =1 to n do begin

readln(a[i],b[i]);

end;

 

for i: =1 to 10 do begin

if (a[i]> 0) and (a[i]< 10) then

if (b[i]> 0) and (b[i]< 10) then

c[i]: =a[i]*a[i]+b[i]*[b];

endif;

endif;

end;

 

for i: =1 to n do begin

writeln('c[',i,']=',c[i]);

end;

end.

Var a,b,c,p: real; begin write('a = '); read(a); write('b = '); read(b); write('c = '); read(c); if (a< b+c)and(b< a+c)and(c< a+b) then begin if (a=b)and(a< > c) then write('треугольник равнобедренный, ') else if (a=b)and(b=c) then write('треугольник равносторонний, ') else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then write('треугольник прямоульный, ') else write('треугольник никакой, '); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); write('его площадь равна ',a); end else write('треугольник не существует') end.

Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш: на один символ влево   стрелка влево на один символ вправо   стрелка вправо на одно слово влево   ctrl+стрелка влево на одно слово вправо   ctrl+стрелка вправо на один абзац вверх   ctrl+стрелка вверх на один абзац вниз   ctrl+стрелка вниз к предыдущей строке   стрелка вверх к следующей строке   стрелка вниз в конец строки   end в начало строки   home если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. это можно сделать с полос прокрутки, расположенных справа и внизу окна документа