Если разбить по 8 бит то айпи 55.0.255.85
Var x1,x2,y1,y2,a,b,s,p: real;
begin
write('Введите x1: ');
readln(x1);
write('Введите y1: ');
readln(y1);
write('Введите x2: ');
readln(x2);
write('Введите y2: ');
readln(y2);
a:= abs(x2-x1);
b:= abs(y2-y1);
p:=2*(a+b);
s:=a*b;
writeln('Периметр прямоугольника: ', P);
writeln('Площадь прямоугольника: ', S);
end.
<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
то есть a[i] = i*2
var
a : array[1..20] of integer;
begin
for var i := 1 to 20 do a[i] := i*2;
end.