Составьте программу на языке паскаль для вычисления площади и периметра трапеции

Program z_1; var a,b,c,d,h,p: integer; s: real; begin       writeln ('введите стороны a, b, c, d и высоту h');     readln (a,b,c,d,h);   p: =a+b+c+d;   s: =(a+b)/2*h;   writeln ('периметр ', p, ', площадь ', s); end.

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

 

 

вот так понятней буде)) ну и более правильно, для

 

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.