Будь ласка іть нада написати програму в basic з цих двох алгоритмі​

1)первый ключ сразу подошел к двери.2)второй ключ подошел т.е проверили 2.3)третий подошел т.е проверили 3ключа.4)четвертый подошел т.е проверили 4 ключа.

по формуле n= найдем, сколько было круглых фигурок -  = 4; всего фигурок было 15+4=19. ответ: 19

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

100-9=20+28+12+13+6+4 +х

х=8