Определите тип исполнителя:
Аудитор пишет отчёт.*
Это до 10:40 надо сделать!

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.