С клавиатуры вводятся N числа. Составьте программу, которая определяет количество положительных, отрицательных чисел

Program AAAAAA;
var i,n: integer;
s,c,k: real;
M:array[1..n1] of real;
begin
writeln('введи число элементов<= 100');
readln(n);
writeln('введи элементы');
for i:=1 to n do read(M[i]);
s:=0; c:=0; k:=0;
for i:=1 to n do
begin
if M[i]<0 then s:=s+1 else
if M[i]>0 then c:=c+1 else k:=k+1;
end;
writeln('колличество положительных чисел = ',c:2:0);
writeln('колличество отрицательных чисел = ',s:2:0);
writeln('колличество нулей = ',k:2:0);
readln;
readln;
end.

\потоп» — первая по времени исполнения фреска микеланджело на плафоне сикстинской капеллы в ватикане. люди показаны здесь в бессмысленной борьбе со смертью, которая обрушивается на них с хмурого неба проливным дождём. вся земля покрыта водой, только гребни гор, как малые островки, виднеются среди безбрежного океана. люди, измученные и объятые ужасом, поднимаются на одну из таких вершин в надежде на спасение. среди них мужчины, женщины, дети. вот жених на своих плечах несёт испуганную невесту. мать, держа на руках малыша, пытается укрыть его от разбушевавшейся стихии. рядом обезумевший от страха юноша, надеясь уцелеть, карабкается на дерево, сгибающееся под порывами ветра. среди безбрежного моря отчаявшиеся люди борются за место в переполненной лодке.

счастливым быть легко. счастье для всех смысл разный. я считаю счастье это семья, любимая работа. что бы быть счастливым не обязательно быть богатым. главное делать то что ты любишь и быть таким какой ты есть, любить себя и не сравнивать с другими, знай ты идеален. но знай твое счастье в твоих руках! ты сам должен поднимать себе настроение, быть веселее, потому что друзья не всегда могут быть рядом. если что то не получается начни с начала, не сдавайся! буть уверение. и считаю так ты легко станешь счастливым.