Qbasic заданы длины сторон треугольника. определить вид треугольника

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

1-я строка имеет длину 1

2-я - 3

3-я - 7

4-я - 15

5-я - 31

6-я - 63

7-я - 127

8-я - 255

9-я - 511 = 8я+8я+i

причем символы с 1 по 255 это первая 8-я строка символы с 256 по 511 это 2-я 8-я строка и символ i

8-я строка это две 7-х строки и символ h

каждая строка в начале имеет предыдущие строки таким образом в начале 8-й строки стоит символ a и далее так как в 4-й строке написано

1) отр(х+отр(х*у))=отр(х+отр(х)+отр(у))=отр(1+отр(у))=отр(1)=0

2) отр(ху)+отр(х)+у+z=отр(х)+отр(у)+отр(х)+у+z=отр(х)+1+z=1

3)а*с+а+а*отрв+отрс*а=а+а*отрв=а

4)отр(отрх*отру)+отрх=х+у+отрх=1 

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.