[pascal. abc]знайти найдовшу сторону чотирикутника, якщо відомі координати його вершин.
тільки через функцію та процедуру. потрібно два варіанти

сидерический год.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

напиши само ,я