Informatics , ex 1-4

Program zadanie; var a,b,c: integer; begin  writeln('введите число');   readln(a);   if (a div 100> 0) or (a div 100< 0) and (a> 0) or (a=0) then  begin  b: =a div 100;   c: =(a mod 100) mod 10;   a: =b+c;   writeln('сумма=',a);   end  else writeln('число нам не подходит'); end. and-логическое "и" or-логическое "или"

1. да; 2. нет; 3. картинка; 4. да; 5. да обязательно; 6. да

Рифма какой то песни что ли?