нужна , я не успеваю, даю 70 быллов

===== PascalABC.NET =====

-№1-

begin

  var (Яблок, Апельсинов, Бананов) :=

     ReadInteger3('Число яблок, апельсинов и бананов:');

  var ВесЯблок := 100 * Яблок;

  var ВесАпельсинов := 150 * Апельсинов;

  var ВесБананов := 170 * Бананов;

  if ВесЯблок > ВесАпельсинов then

    if ВесЯблок > ВесБананов then

       Print('Берем яблоки')

    else

       Print('Берем бананы')

  else if ВесАпельсинов > ВесБананов then

     Print('Берем апельсины')

  else

     Print('Берем бананы')

end.

-№2-

begin

 var n := ReadInteger('Введите натуральное число;');

 var P := new HashSet<integer>;  // это множество целых

 while n > 0 do

 begin

   P += n mod 10;  // очередную цифру добавляем ко множеству

   n := n div 10

 end;

 P.Count.Println  // в множестве все элементы уникальны

end.

Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.