Program Pr1;
  Var S1,S2,S,X0,X1,X2,X3,X4,X5,X6,X7,X8,X9,Y0,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,P : REAL;
  Function Ras(X0,X1,Y1,Y0 : REAL) : REAL;
    Begin
     S1:=X1-X0;
     S2:=Y1-Y0;
     S:=sqr(S1*S1+S2*S2);
     Ras:=S;
    End;
Begin
  Writeln('X0,X1,X2,X3,X4,X5,X6,X7,X8,X9');
  Readln(X0,X1,X2,X3,X4,X5,X6,X7,X8,X9);
  Writeln('Y0,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9');
  Readln(Y0,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9);
  P:=Ras(X0,X1,Y0,Y1)+Ras(X2,X3,Y2,Y3)+Ras(X4,X5,Y4,Y5)+Ras(X6,X7,Y6,Y7)+Ras(X8,X9,Y8,Y9);
  Write('P=',P);
  Readln
End.

Uses Crt;
Var
 i,j,n : word;
 b : boolean;
Begin
 ClrScr;
 Write('Введите N : '); ReadLn(n);
 i:=3;
 While i<=n do
  Begin
    j:=3;
    b:=true;
    While ( j<=Trunc(Sqrt(i)) ) and b do
      Begin
        If i mod j = 0 then b:=false;
        inc(j,2);
      end;
    if b then Write(i,' ');
    inc(i,2);
  end;
End.

============================================================================}
Function Byte2Bin(Decim:byte):string;
Var i:byte;
    s:string;
Begin
   s:='';
   for i:=0 to 7 do
   if ((($01 shl i) and decim) shr i)=1
   then s:='1'+s else s:='0'+s;
   Byte2Bin:=s;
End;
{============================================================================}
Function Byte2Hex(Decim:byte):string;
Var t1,t2:byte;
    s1,s2:string;
Begin
   t1:=Decim shr 4;
   t2:=Decim and $F;
   if t1<10 then str(t1,s1) else s1:=chr(65+t1-10);
   if t2<10 then str(t2,s2) else s2:=chr(65+t2-10);
   Byte2Hex:=s1+s2;
End;
{==========================================================================}
Function Word2Hex(Decim:word):string;
Var t1,t2:word;
    s1,s2:string;
Begin
   t1:=Decim shr 8;
   t2:=Decim and $FF;
   Word2Hex:=Byte2Hex(t1)+Byte2Hex(t2);
End;
{==========================================================================}
Function DWord2Hex(Decim:longint):string;
Var t1,t2:longint;
    s1,s2:string;
Begin
   t1:=Decim shr $10;
   t2:=Decim and $FFFF;
   DWord2Hex:=Word2Hex(t1)+''+Word2Hex(t2);
End;
{==========================================================================}
Function Word2Bin(Decim:word):string;
Var t1,t2:word;
    s1,s2:string;
Begin
   t1:=Decim shr 8;
   t2:=Decim and $FF;
   Word2Bin:=Byte2Bin(t1)+Byte2Bin(t2);
End;
{==========================================================================}
Function DWord2Bin(Decim:longint):string;
Var t1,t2:longint;
    s1,s2:string;
Begin
   t1:=Decim shr $10;
   t2:=Decim and $FFFF;
   DWord2Bin:=Word2Bin(t1)+' '+Word2Bin(t2);
End;
{==========================================================================}