Найти площадь равнобедренной трапеции с основаниями а и в и углом с при большем основании в Visual Studio C++

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.

1. Цилиндр, конус и шар;
2. Конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка;
3. Сфера представляет собой совокупность информации, информационной инфраструктуры, субъектов, осуществляющих сбор, формирование, распространение и использование информации, а также системы регулирования возникающих при этом общественных отношений;
5.
1. Выбрать создание детали (Файл-->Создать-->Деталь).
2. Выбрать в дереве модели плоскость x-y.
3. Включить режим эскиз (кнопка панели управления ).
4. На геометрической панели построения выбрать ввод окружность.
5. Ввести параметры: координаты центра - 0,0; диаметр окружности - 35 мм.
6. Закончить редактирование эскиза (повторно нажать на кнопку «эскиз»).
7. На панели редактирования детали выбрать Операция выдавливания.
8. В окне Параметры на вкладке Операция выдавливания установить параметры: прямое направление; расстояние 50 мм (высота цилиндра)и нажать кнопку Создать.
9. На экране должно появиться изображение цилиндра.