1. найти количество отрицательных чисел во вводимой с клавиатуры последовательности. условие окончания ввода – ввод числа 0. 2. случайным образом сгенерировать дату и время. диапазон изменения годов: 2000 - 2010, месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. вывести сгенерированное значение в формате: дд/мм/ чч: мм. 3. массив а из 10 элементов заполнен случайными числами от 2 до 7. вставить элемент со значением 0 после элемента с номером n. вывести на экран исходный и получившийся массивы. решить в паскале

1)
var a,q:integer;
begin
a:=1;
while a<>0 do begin
read(a);
if a<0 then inc(q);
end;
writeln('Количество отрицательный чисел: ',q);
end.

2)
var d,m,g,h,min:integer;
begin
d:=random(31)+1;
m:=random(12)+1;
g:=random(11)+2000;
h:=random(24);
min:=random(60);
writeln(d,'/',m,'/',g,' ',h,':',min);
end.

3)
var a:array[1..10] of integer;n,i:integer;
begin
for i:=1 to 10 do
a[i]:=random(6)+2;
read(n);
for i:=1 to 10 do
writeln(a[i]);
for i:=9 downto n do
a[i+1]:=a[i];
a[n]:=0;
for i:=1 to 10 do
writeln(a[i]);
end;