Известны размеры двух ящиков(длина, ширина, высота) .Определить объем какого ящика больше  . Размеры меньшего ящика увеличить в два раза и снова сравнить объемы ящиков . Вывести на экран больший объем. Составить программу в паскале. 
 
Известны радиусы и координаты центров двух окружностей таких , что одна окружность не содержит внутри другой . Определить пересекаются ли эти окружности (расстояние между центрами должно быть меньше суммы радиусов). Определит площадь большей окружности. Составить программу в паскале

Даю пример на c#, авось поможет придумать код на паскале, т.к сам онли в c#:int perva, pervb, pervv;int vtora, vtorb, vtorv;Console.WriteLine("Введите длину первого ящика");perva = Convert.ToInt32(Console.ReadLine());Console.WriteLine("Введите ширину первого ящика");pervb = Convert.ToInt32(Console.ReadLine());Console.WriteLine("Введите высоту первого ящика");pervv = Convert.ToInt32(Console.ReadLine());Console.WriteLine("Введите длину второго ящика");vtora = Convert.ToInt32(Console.ReadLine());Console.WriteLine("Введите ширину второго ящика");vtorb = Convert.ToInt32(Console.ReadLine());Console.WriteLine("Введите высоту второго ящика");vtorv = Convert.ToInt32(Console.ReadLine());int result;int result2;result = perva * pervb * pervv;result2 = vtora * vtorb * vtorv;obratno:if (result > result2){int anotherresult;anotherresult = result2 * 2;goto obratno;}if (result < result2){int anotherresult2;anotherresult2 = result * 2;goto obratno;}