A = в Edit1
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
Var a,s: real;
begin
write('длина стороны: ');
readln(a);
s:=a*a*sin(pi/3)/2;
writeln('площадь треугольника = ',s:6:4);
end.
<span>
</span>
Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;