Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). стороны прямоугольника параллельны осям координат. найти периметр и площадь данного прямоугольника.

Program pryamougolnik; var x1, x2, y1, y2, a, b, s, p: real; begin write ('введите координату х1 = '); readln (x1); write ('введите координату y1 = '); readln (y1); write ('введите координату х2 = '); readln (x2); write ('введите координату y2 = '); readln (y2); a: =abs(x2-x1); b: =abs(y2-y1); p: =(a+b)*2; s: =a*b; writeln ('периметр прямоугольника p = ', p); writeln ('площадь прямоугольника s = ', s); end.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.