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

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

Даю пример на 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;

}