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

//Сделал Лугачев Кирилл//Специально для znanija.com/task/18302250//Все данные вводятся с клавиатуры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.