Подсчитать количество отрицательных чисел из 10 введенных с клавиатуры

Program n1; var a,i,k: integer; begin k: =0; for i: =1 to 10 do begin write('введите ',i,' число: '); readln(a); if a< 0 then k: =k+1; end; write('количество: ',k); end.

#include < iostream> int main() {       int k, i, t;       k=0;       for (i=1; i< =10; i++) {               std: : cin> > t;               if (t< 0) {k+=1; }       }       std: : cout< < k; }

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.