1.Разделите все устройства по функциям и заполните таблицу.

Смотри, надо запомнить несколько операторов в Pascal.
Trunc(x) - выводит ближайшее целое, не превышающее x по модулю. Например, вместо 6.66666666667, оператор выведет 6. Важно, чтобы число x было вещественным. Ну а при выводе - целым.
Round(x) - округляет число. Например, вместо 6.66666667, оператор выведет 7. Важно, чтобы число x было вещественным. Ну, а при выводе - целым.
Int(x) - выводит целую часть числа x. Например, 6.66666667, оператор выведет 6. Число x должно быть целым или вещественным, но при выводе - вещественным.

Выбирай оператор какой тебе нужен.

Программа №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).