Даны две прямоугольника со сторонами a,b и с,d соответственно. определить на сколько площадь первого отличается от площади второго. на языке паскаль

//сделал лугачев кирилл //специально для //все данные вводятся с клавиатуры program sravnenie; var      a, b: integer; // стороны 1-ого прямоугольника  d, c: integer; // стороны 2-ого прямоугольника  s1, s2: integer; // площадь  buf: integer; // если площадь 1-ого будет меньше 2-ого                                      //поменяем местами,что бы избавиться от минуса  razn: integer; // разница 2-ух площадей begin      write('введите стороны 1-ого прямоугольника: ');   readln(a, b);     write('введите стороны 2-ого прямоугольника: ');   readln(d, c);       s1 : = a * b; //площадь 1-ого  s2 : = d * c; //площадь 2-ого      if s1 < s2 then    begin    buf : = s1;     s1 : = s2;     s2 : = buf;   end;       razn : = s1 - s2;         writeln('площадь 1-ого больше площади 2-ого в - ',razn, ' раз');     end.

int n, p,q;

cin >> n;

cin >> p;

bool stop = false;

for(int i = 2; i < n && !stop; i++) {

cin >> q;

if(p == q) fl = true;

p = q;

}

if(!stop) cout << "NO"; else cout << "YES";

Объяснение: