Ввести в ЭВМ координаты N точек, лежащих на плоскости. Сформировать массивы полярных координат этих точек. Указание: формулы перехода из декартовой системы координат в полярную.

Общее количество учебников равно k*N.
В шкаф помещается P*T учебников.
Количество полностью заполненных шкафов Х равно целой части от деления k*N на P*T

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('Количество курсов:');
  var n:=ReadInteger('Количество учебников для каждого курса:');
  var p:=ReadInteger('Количество полок в шкафу:');
  var t:=ReadInteger('Количество учебников на полке:');
  Writeln('Будет полностью заполнено шкафов: ', (k*n) div (p*t))
end.

Вы не указали на каком языке программирования это написать, поэтому я выбрал на своё усмотрение - c++.

#include <iostream>
#include <windows.h>
#include <math.h>
using namespace std;
int main ()
{    
double a,b;
cout << "enter a: ";
cin >> a;
cout << "enter b: ";
cin >> b;
if( (a-b)*(a+b) > fabs(a*a-2*a*b+b*b))
{
cout << " bolshe raznost kvadratov";
return 0;
}    
else    
{        
cout << " bolshe modul kvadrata raznosti";        
return 0;    
}    
return 0;
}