programa para binomio en pascal

El siguiente programa está escrito con código para dev pascal. Con él se pueden resolver binomios.
Program Binomio;
Uses crt;
Var
a,g:string[15];
b,c,d:string[2];
E:real;
BeginTextcolor:[2];
Gotoxy(25,5);
Write(‘Resuelve la ecuacion’);
Gotoxy(25,6);
Write(‘Hola como te llamas?’);
Readln(A);
Write(‘Quieres resolver el binomio? s/n’);
Gotoxy(25,9);
Readln(B);
IfB=’n’ then write(‘esta bien adios’);
Else if a=’s’ then;
Begin
Clrscr;
Write(‘ok’);
Readln;
Clrscr;
Write(‘Dame valor de a’);
Readln(C);
Write(‘Dame valor de B’);
Readln (D);E=(A*A)+(2*A*B)+(B*B)
Gotoxy(25,12);
Write (‘El resultado es’, E:=(A*A)+(2*A*B)+(B*B);
Gotoxy (25, 7);
Write (‘Quieres resolver otro?’);
Readln (A);
End.



Program Binomio2;
Uses;
 crt;
Var
A:string [15];
B, C, D:string [4];
E:real;
Begin
Textcolor :[2];
Gotoxy (25,5);
Write (‘Binomio al cuadrado’);
Gotoxy (25, 7);
Write (‘hola como te llamas?’);
Readln (A);
Write(‘¿Quieres resolver el binomio? S/N’)
Readln (B);
Until B=’no’;
Begin
Clrscr;
Write('ok’);
Readln;
Clrscr;
Write (‘Dame valor de A’);
Readln (C);
Write (‘Dame valor de B’);
Readln (D);E:=(A*A)+(2*A*B)+(B*B)
Gotoxy (25, 5);
Write (‘El resultado es’, E:=(A*A)+(2*A*B)+(B*B);
Gotoxy (25, 7);
Write (‘quieres resolver otro?’);
Readln (B);
End.

Program Binomio3;
Uses;
 crt;
VarA :string [15];
B, C, D:string [4];
E:real;
Begin
Textcolor:[2];
Gotoxy (25,5);
Write (‘Binomio al cuadrado’);
Gotoxy (25, 8);
Write (‘Hola como te llamas?’);
Readln (A);
Write(‘¿quieres resolver el binomio? S/N’)
Readln (B);
While B= ‘Si’ do;
Begin
Clrscr;
Write (‘ok’);
Readln;
Clrscr;
Write (‘Dame valor de A’);
Readln (C);
Write (‘Dame valor de B’);
Readln (D);E:=(A*A)+(2*A*B)+(B*B)
Gotoxy (25, 9);
Write (‘el resultado del binomio es’, E:=(A*A)+(2*A*B)+(B*B);
Gotoxy (25, 7);
Write (‘quieres resolver otro?’);
Readln (A);
End....