А если так?

Unit exerc_f
uses
...
implementation
procedure btn_execute.Click
begin
if not (TryStrToInt(edt_1.Text)) and (TryStrToInt(edt_2.Text)) then
ShowMessage('Введите числа!')
else
if check.true then
exerc_c.execute(edt_1.Text,edt_2.Text)
lbl_1.Caption:=execute.x
lbl_2.Caption:=execute.y
else
lbl_1.Caption:=edt_1.Text
lbl_2.Cap tion:=edt_2.Text
end;

Unit exerc_c
uses
...
implementation

function check:boolean;
var
_x,_y:integer
begin
if (_x>=0) and (_y>=0) then
check:=true
else
check:=false;
end;

procedure execute(x,y:integer)
begin
if (x<0.5) and (x>2) and (y<0.5) and (y>2) then
x:=x/10
y:=y/10
else
x:=x
y:=y
end;

Вроде так, хотя скорее всего где-нибудь ошибся

P.S. Delphi — результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. (с) Википедия

Добавлено (24.02.2010, 19:14)
---------------------------------------------
Даны 2 целых числа. Если оба числа четные, то разделить их на 2, иначе – возвести в квадрат.

Ну так для начала

Sub Задача_2() - Русского языка в программировании нет вобще !
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim v As Integer
Const b As Boolean = False
Const a As Boolean = True Это вобще зачем ?
x = InputBox("Введите x")
y = InputBox("Введите y")
If (z = x / 2) And (v = y / 2) Then
End If Условие без реакции на него. Чтото проверяется, но ничего не дклается !
x = x / 2
y = y / 2
MsgBox "x=" & x & Chr(10) & "y=" & y
If (z = x / 2 = b Or v = y / 2 = b) Then
End If Тоже ничего не значищее условие.
x = x ^ 2
y = y ^ 2
MsgBox "x=" & x & Chr(10) & "y=" & y
End Sub

Ща че нить придумаю =)

Dim x As Integer
Dim y As Integer

x = InputBox("Введите x")
y = InputBox("Введите y")

If (x Mod 2) And (y Mod 2) <> 0 Then Тут может быть так -If (x Mod 2) <> 0 And (y Mod 2) <> 0 ThenПосмотри так и так !
x = x / 2
y = y / 2 Тут и
Else
x = x * x
y = y * y тут тоже может быть наоборот, т.е. это наверх, а верх сюда !
End If

MsgBox "y = " & y & Chr(10) & "x = " & x

End Sub