Составьте программу рисования узора. Начальное положение Робота отмечено символом ◊

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

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.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

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

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