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

01.01.2001

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

  • 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.

Вас заинтересует