5div 6 6 div 3 154 div 17 132 mod 8 167 mod 17 177 div 6

div - целочисленное деление(целая часть).

mod - остаток от деления.

5 div 6 = 0

6 div 3 = 2

154 div 17 = 9

132 mod 8 = 4

167 mod 17 = 14

177 div 6 = 29

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.