Помогите пожалуйста,не понимаю эту тему("Составление и исполнение алгоритмов линейной структуры.")
Напишите программы для ниже указанных задач:
-Найдите периметр трапеции, длины всех сторон которой вводятся с клавиатуры.
-Найдите стоимость заданного количества ткани.Цена и количество вводятся с клавиатуры.
-Найдите путь, пройденный автомобилем за заданное время.Значение средней скорости и время движения вводятся с клавиатуры.

Спасибо большое.)

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