Найти периметр пятиугольника по известным координатам его вершин, используя процедуру вычисления длины отрезка по известным координатам его концов

function len(x1,y1, x2, y2: real): real;

begin

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

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5: real;

begin

    write('x1 = '); readln(x1);

    write('y1 = '); readln(y1);

    write('x2 = '); readln(x2);

    write('y2 = '); readln(y2);

    write('x3 = '); readln(x3);

    write('y3 = '); readln(y3);

    write('x4 = '); readln(x4);

    write('y4 = '); readln(y4);

    write('x5 = '); readln(x5);

    write('y5 = '); readln(y5);

    writeln('p = ', len(x1,y1,x2,y2) + len(x2,y2,x3,y3) + len(x3,y3,x4,y4) + len(x4,y4,x5,y5) + len(x5,y5,x1,y1));

end.

 

Есть 2 основных производителя процессоров: -intel -amd intel: компания основана в 1968г начали производить процессоры раньше, чем amd. самый первый процессор: intel 4004 с тактовой частотой - 740кгц. сейчас последнее поколение процессоров интел - 8 поколение (coffylake) самый мощный процессор: i9-7980x (18 ядер. цена 2000$). amd: компания основана в 1969г самый первый процессор: am980. амд всегда отличались высокой температурой своих процессоров. сейчас у amd вышла новая линейка процессоров: ryzen. они довольно мощные. самый мощный процессор: ryzen 7 1700.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   for var i: =1 to n do begin       var (flag,j,r): =(true,2,round(sqrt(;       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then print(i)       end end. пример n= 50 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47