Как черепахой замостить окружностями поле в стык в кумире

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

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

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

var m,n: integer;

begin

  read(n,m);

  if n > m then writeln(m+n, n);

  else writeln(m+n, m);

end.

во второй непонятно как задются эти числа

var i,n: integer;

begin

  read(n);

  for i : = 1 to n do

      writeln(i, i*i);

end.

блок схемы мы не учили да и фигня эти схемы чесно говоря

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.