ПОМОГИТЕ ХРИСТА РАДИ!!! ЯЗЫК ПРОГРАММИРОВАНИЯ PASCAL!!!

Какое-то странное сочетание - "Христа ради составьте программу на языке Pascal.".. :) Какое дело до этого Христу??
P.S. Ну ладно, ради Летающего Макаронного Монстра

program p1;
const n=50; var i:integer; t,p,s:real;
begin
writeln('Enter ',n,' real numbers:'); s:=0; p:=1;
for i:=1 to n do begin read(t); if t<0 then begin s:=s+t; p:=p*t end end;
writeln('sumn=',s,', muln=',p);
end.

Ради Христа тебе учить надо, а не за тебя делать. А может и поздно учить. Но если попросишь ради Аллаха, то может кто-то и сделает.

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

Итак, 1-ый вариант (ввод ручной с клавиатуры, советую для тестовых запусков заменить число 50 на 5 в строке "const n=50;" ибо иначе можно замучаться вводить 50 чисел - ибо для теста и 5 хватит):

 Program P1; 

uses crt; 

const n=50; 

type massiv=array [1..n] of real; 

var m: massiv; 

    i: integer; 

    p, s: real; 

begin 

clrscr; 

p:=1; 

s:=0; 

writeln ('Введите ', n, ' чисел. При вводе дробных чисел, целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

write ('Введите ', i, '-е число: '); 

readln (m[i]); 

end; 

write ('Вы ввели числа:'); 

for i:=1 to n do begin 

write (' ', m[i]); 

end; 

writeln (' '); 

for i:=1 to n do begin 

if m[i]