Дана равнобедренная трапеция, боковая сторона а, одно из оснований в, дан периметр. найти второе основание и вывести на экран на паскале

Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.

Пример:
a, b, p:
4 10 25
c = 7

Если только синтаксические ошибки убрать, то должно быть так:

Private Sub CommandButton1_Click()
    Dim A(1 To 5, 1 To 5) As Single
    Dim i As Integer, j As Integer, k As Integer
    Dim sr As String
    k = 0
    ListBox1.Clear
    For i = 1 To 5
        sr = ""
        For j = 1 To 5
            A(i, j) = i + 0.5 * j
            sr = sr + " " + Format(A(i, j), "0.000") + " "
            If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
        Next j
        ListBox1.AddItem (sr)
    Next i
    TextBox1.Text = Str(k)
End Sub

А если неверно запрограммировано, то надо знать, что и как должно делаться.

Пятизначное число состоит из пяти разрядов:
ххххх
Так как единиц не существует, то каждый разряд (кроме первого) может принимать 9 вариантов (0, 2, 3, 4, 5, 6, 7, 8, 9).
При этом, первый разряд не может быть нулём, так как число 5-значное.
То есть число можно записать как
yxxxx, где y принимает значения от 2 до 9, а x - девять значений (которые выше).
Количество чисел считаем по формуле

где 8 - это количество вариантов первого разряда, а 9^4 - количество вариантов оставшихся четырех разрядов.
То есть ответ 52488