Доброго времени суток, подскажите как решаются задачи на Pascal 7 желательно с кодом

Question

Начинаю осваивать язык, поэтому много чего не ясно, заранее спасибо ! 
задача 1 
Дана последовательность из 20 чисел. Найти количество 
элементов последовательности равных 0 
задача 2 
Вводится число карандашей N<=10. Вывести фразу "Я купил N 
карандашей, согласовав слово "карандаш" с числом N. 
Предусмотреть ситуацию ввода N<0

Алексей Костяев · Accepted Answer

1 задача 
type 
 mas=array [1..20] of integer; 
var a:mas; 
 i,k:integer; 
procedure pousk(var a:mas; var i,k:integer); 
begin 
if i>20 then exit; 
a:=random(10); 
write(a:2); 
if a=0 then inc(k); 
inc(i); 
pousk(a,i,k); 
end; 
begin 
i:=1; 
k:=0; 
pousk(a,i,k); 
writeln; 
writeln(k); 
end.