Желательно в pascal. составить программу получения всех совершённых чисел, меньших заданного числа n. число называется совершенным, если оно равно сумме всех своих положительных делителей, кроме самого себя. например 28-совершенное число, т.к. 28=1+2+4+7+14.

{1.}var  i: integer;   s: string; begin  write('введите строку: ');   read(s);   writeln('номера позиций символа ",": ');   for i : = 1 to length(s) do    if s[i] = ',' then write(i: 4); end. {2.} var  i: integer;   s: string; begin  writeln('введите строку: ');   read(s);   for i : = 1 to length(s) do    if s[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then s[i] : = '*';   writeln(s); end.

Пример на c#, авось придумать код на паскале, т.к сам онли в c#: int perva, pervb, pervv; int vtora, vtorb, vtorv; console.writeline("введите длину первого ящика"); perva = convert.toint32(console.; console.writeline("введите ширину первого ящика"); pervb = convert.toint32(console.; console.writeline("введите высоту первого ящика"); pervv = convert.toint32(console.; console.writeline("введите длину второго ящика"); vtora = convert.toint32(console.; console.writeline("введите ширину второго ящика"); vtorb = convert.toint32(console.; console.writeline("введите высоту второго ящика"); vtorv = convert.toint32(console.; 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; }