Построить логическую схему и таблицу истинности

// PascalABC.NET

begin

 // 1

 var s11 := SeqRandom(100, 10, 99).Sum;

 var s12 := ArrRandom(100, 10, 99).Sum;

 case Sign(s11 - s12) of

   -1: Println('Сумма второго массива больше');

   0: Println('Суммы равны');

 else

   Println('Сумма первого массива больше')

 end;

 // 2

 var s21 := SeqRandom(1000, -9, 9).Sum;

 var s22 := ArrRandom(1000, -9, 9).Sum;

 var s23 := ArrRandom(1000, -9, 9).Sum;

 if s21 > s22 then

   Swap(s21, s22);

 if s22 > s23 then

 begin

   Swap(s22, s23);

   if s21 > s22 then

     Swap(s21, s22)

 end;

 Println(s21, s22, s23);

 // 3

 var a := ArrRandom(50, -99, 99);

 a.Println;

 var s31 := a.Where(p -> p > 30);

 Print('Количество', s31.Count, '   сумма', s31.Sum)

end.

Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).