Выберете верные истинности/сложности логических высказываний 1) True/False
2) 1/0
3) истина/ложь
4) верно/неверно
5) T/F
6) правильно/неправильно
7) И/Л

Обычно предполагается, что нам известны какие-либо начальные данные. Тогда для простоты, буду считать что нам известно основание и высота к этому основанию. В таком случае

S = основание * высоту / 2

Что нужно сделать?

1) Запросить у пользователя ввод длины основания

2) Запросить у пользователя ввод длины высоты

3) Вычислить площадь

4) Вывести площадь на экран

Определимся с данными. У нас будет переменная S, основания и высоты. Все будут real, ведь пользователь может ввести и не целое число.

program ploshad;

var S, osnovanie, visota:real;

begin

   writeln('Вычисление площадь треугольника по основанию и высоте');

   writeln('Введите длину основания ');

   read(osnovanie);

   writeln('Введите длину высоты ');

   read(visota);

   S:=osnovanie*visota/2;

   writeln('Площадь треугольника = ',S);

end.

1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;