Напишите команды у ромба 2 рисунок сверху

Var     s: string;     i: integer;     sum: real;     c: byte; begin sum: =0; write('введите строку: '); readln(s); for i: = 1 to length(s) do       if ('1'< =s[i])and(s[i]< ='9') then             begin             case s[i] of             '1': c: =1;             '2': c: =2;             '3': c: =3;             '4': c: =4;             '5': c: =5;             '6': c: =6;             '7': c: =7;             '8': c: =8;             '9': c: =9;             end;             if i mod c = 0 then sum: =sum+c;             end; writeln('sum = ',sum); end.

№1 а) №4, №2, №5, №3, №6, №1. б)№2, №1, №3, №4, №6, №5.№2 тип№3 четвёртая запись  №4    фамилия       адрес                        тип            название срок 1 петров    пр. парковый 2-10    газета  известия      6 2 иванова  ул. подлесная 11-14 журнал крестьянка          3 3 соколов ул. строителей 8-5 газета  комсомольская правда    12    4 федоров  пр. парковый 4-16    журнал  огонек      6 5 яковлев ул. подлесная 7-25  газета  комсомольская правда    6 6 юсупова  ул. строителей 8-13 газета  известия   3 7 юровский пр. парковый 2-10    газета известия  6 8 корытько ул. подлесная 7-25  газета комсомольская правда  6 9 худецкая пр. парковый 2-10    газета известия  6 10 тагиров ул. подлесная 7-25  газета комсомольская правда  6