задача дана не четко поэтому не гарантирую что решение будет полностью верным, делаю так как она должна быть по моему мнению...
var
a, h, d, S : real;
begin
write('введите длину основания a=');
readln(a);
write('введите d=');
readln(d);
h := a-d;
S := a*h/2;
writeln('h=', h);
writeln('S=', S);
end.
Это все ответы для Интернет урока за 8 класс Информатика.
2) шавка 4) шажок 6) шакал 8) шалость 10) шалфей 12) шаман 14) шанежка 16) шарада
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.