помогите решить две задачки

[Виталька]

наверное значения самому надо какие то задавать, ну я бы задал длины сторон

[PAWLO1993]

Как любые значения??? Сторони двух прямоугольников???

[Виталька]

наверное да

[PAWLO1993]

По - моему так:

Program NoName;
VAR A,B,C,D,S,S1:longint;
Begin 
WRITE('введите длины сторон первого прямоугольника  ');
READLN(A,B);
WRITE('введите длины сторон второго прямоугольника  ');
READLN(C,D);
S:=A*B;
S1:=C*D;
WRITELN('площадь даной фигури -  ',S-S1);
end.