Составить программу!!!на языке Паскаль
Подсчитать количество отрицательных чисел из 10 введенных с клавиатуры.Найти количество чисел,не больше 100.

Program n1;var a,k,kb,i: integer;begink:=0;kb:=0;for i:=1 to 10 dobeginreadln(a);if a<0 then k:=k+1;if a<=100 then kb:=kb+1;end;writeln(k);writeln(kb);end.