Помогите!!!

[PROZ]

Напишите, пожалуйста, как можно этот код, который написан в Visual Basic...

Private Sub CommandButton1_Click()
a = InputBox("Ввести основу трикутника а")
h = InputBox("Ввести висоту трикутника h")
S = a * h / 2
Label1.Caption = Str(S)
End Sub

Private Sub CommandButton10_Click()
r = InputBox("Ввести радіус кола R")
S = r * 3.14
Label5.Caption = Str(S)
End Sub

Private Sub CommandButton4_Click()
a = InputBox("Ввести сторону квадрата а")
S = a * a
Label3.Caption = Str(S)
End Sub

...переделать в такой, что откомпилирует Delphi?

[Gauss]

На твоем месте название темы такбы не ставил))

[Stilet]

Вот краткий пример по первой Sub:

procedure TForm1.Button1Click(Sender: TObject);
var a,h,s:double;
begin
a = strtofloat(InputBox('Ââåñòè îñíîâó òðèêóòíèêà à','',''));
h = strtofloat(InputBox('Ââåñòè âèñîòó òðèêóòíèêà h','',''));
S = a * h / 2;
Label1.Caption = floattostr(S);
end;

Остальное сделаеш сам.

Тема написана с нарушениями правил форума, поэтому закрываю.