#include <stdio.h>
#include <math.h>

void main(void)
{
	unsigned int x_point[100], y_point[100];
	int lenght = 0, amount = 0;

	for (int i = 0; i < 100; i++)
	{
		printf("point %d: enter xi\n", i + 1);
		scanf("%d", &x_point[i]);

		printf("point %d: enter yi\n", i + 1);
		scanf("%d", &y_point[i]);
		
	}

	for (int i = 0; i < 99; i++)
	{
		if (x_point[i] > 0 && x_point[i + 1] < 0)
			amount++;
		if (x_point[i] < 0 && x_point[i + 1] > 0)
			amount++;
		if (y_point[i] > 0 && y_point[i + 1] < 0)
			amount++;
		if (x_point[i] < 0 && x_point[i + 1] > 0)
			amount++;

		lenght += sqrt(abs(x_point[i + 1] - x_point[i]) * abs(x_point[i + 1] - x_point[i]) + abs(y_point[i + 1] - y_point[i]) * abs(y_point[i + 1] - y_point[i]));
	}

	printf("amount: %d", amount);
	printf("lenght: %d", lenght / 100);

	return;
}

typedef struct ip_header {
  UCHAR   iph_verlen;
  UCHAR   iph_tos;  
  USHORT  iph_length;  
  USHORT  iph_id;       
  USHORT  iph_offset; 
  UCHAR   iph_ttl;     
  UCHAR   iph_protocol; 
  USHORT  iph_xsum;    
  ULONG   iph_src;      
  ULONG   iph_dest;   
} IPHeader;

	ip_hd->iph_verlen = 0x45;
	ip_hd->iph_tos	= 0x01;
	ip_hd->iph_length = htons(40);
	ip_hd->iph_id	= htons(0x0800);
	ip_hd->iph_offset = 0x0;
	ip_hd->iph_ttl	=	0xff;
	ip_hd->iph_protocol		=	0x06;
	ip_hd->iph_xsum	=	0x00;
	ip_hd->iph_dest	=	inet_addr("192.168.0.1");

program qwer;

var
s:string;
a:char;
infile,outfile:text;
n,m,c,i:integer;

begin
assign(infile,'input.txt');
assign(outfile,'output.txt');
reset(infile);
rewrite(outfile);
repeat
readln(infile,s);
for i:=1 to length(s) do begin
a:=s[i];
case a of
'+':begin
val(Copy(s,1, i-1),m,c);
val(Copy(s,i+1,length(s)-i),n,c);
write(outfile,s+'=');
writeln(outfile,m+n);
end;

'-':begin
val(Copy(s,1, i-1),m,c);
val(Copy(s,i+1,length(s)-i),n,c);
write(outfile,s+'=');
writeln(outfile,m-n);
end   ;
'*':begin
val(Copy(s,1, i-1),m,c);
val(Copy(s,i+1,length(s)-i),n,c);
write(outfile,s+'=');
writeln(outfile,m*n);
end   ;
'/':begin
val(Copy(s,1, i-1),m,c);
val(Copy(s,i+1,length(s)-i),n,c);
write(outfile,s+'=');
writeln(outfile,m/n:8:2);
end   ;
end;
end;
n:=0;
m:=0;
until eof(infile);
close(outfile);
close(infile);

end.

program deliteli;

{Составить программу для нахождения чисел из интервала [M, N],
имеющих наибольшее количество делителей.}

procedure GetCount (x : integer; var count : integer);
{Подсчет кол-ва делителей для каждого числа}
var
  i, j : integer;
begin
  i := 2;
  count := 0;
  j := x div 2;
  while (i <= j) do begin
    if x mod i = 0 then begin
      write (i, ' ');
      inc (count);
      x := x div i;
    end else
      inc (i);
  end;
  writeln;
end;

procedure PrintNumbers (x, y : array of integer; count, index : integer);
var
  i : integer;
begin
  for i := 0 to count - 1 do
    if y [i] = index then
      writeln (x [i]);
end;

var
  n1, n2, i, j, count, max : integer; {Первое, последнее число, счетчики цикла, кол-во делителей, максимальное кол-во делителей}
  numbers : array [1..255] of integer; {Массив для чисел}
  del_count : array [1..255] of integer; {Массив для количества делителей каждого числа}

begin
  write ('Введите первое число n1: ');
  readln (n1);
  write ('Введите последнее число n2: ');
  readln (n2);
  count := 0;
  max := 0;
  j := 1;
  for i := n1 to n2 do begin
    numbers [j] := i;
    write ('Делители числа ', i, ': ');
    GetCount (i, count);
    del_count [j] := count;
    if count > max then
      max := count;
    writeln ('Количество: ', count);
    inc (j);
  end;
  writeln ('Максимальное число делителей: ', max);
  writeln ('Числа, имеющие наибольшее кол-во делителей');
  PrintNumbers (numbers, del_count, n2 - n1 + 1, max);
end.