В переменные А,В,С, ввести числа. Найти малое из 3-х введенных чисел,

Var  a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if blt;min then min:=b;
write('Введите c: ');
readln(c);
if clt;min then min:=c;
writeln('Меньшее: ',min);
end.

Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
a = InputBox("Введите A: ")
min = a
b = InputBox("Введите B: ")
If b lt; min Then min = b
c = InputBox("Введите C: ")
If c lt; min Then min = c
MsgBox ("Меньшее: " amp; min)
End Sub

Для величайшего
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b gt; max Then max = b
c = InputBox("Введите C: ")
If c gt; max Then max = c
MsgBox ("Величайшее: " amp; max )
End Sub