Иран қандай мемлекет болды?​

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.

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

begin

 SeqGen(77, i -> 3 * i, 1).Sum.Println

end.

Объяснение:

Поскольку не сказано, от какого числа последовательность начинается, договоримся, что это последовательность натуральных чисел и первым в ней является число 3. Фактически, это арифметическая прогрессия с разностью d = 3, содержащая 77 членов. Формула нахождения суммы такой последовательности общеизвестна, и создавать программу тут абсолютно нет надобности. Но уж настолько бедна фантазия авторов заданий, что они не в состоянии дать задачу, где действительно требуется программирование. Будем считать, что это задание демонстрирует случай, когда программы писать не нужно.

Итак сумма S = ( 2 · 3 + 3 · ( 77 - 1 ) ) · 77 / 2 = 9009.