Pascal/Turbo Pascal - Ecuaciónes

hola, podrias ayudarme a programar una ecuacion de primer grado, una ecuacion general y como se programa para resolver la tabla de multiplicar del 2?
Este tema no es mi fuerte HELP ME

Un ejemplo:

uses Crt;
var
a, b : real;

begin
WriteLn('Este programa resuelve una ecuaci¢n de 1er grado: a * X + b = 0');
Write ('Ingrese a = ');
ReadLn (a);
Write ('Ingrese b = ');
ReadLn (b);
WriteLn('Se va a resolver la ecuaci¢n: ', a, ' * X + ', b);
WriteLn('El valor de X es: ', ((-1.0) * b ) / a :5:2);
Write ('Pulse una tecla para salir...');
ReadKey
end.

Para completarlo, podrias validar que el "a" ingresado sea distinto de cero.

gracias

Otro ejemplo:

uses Crt;
var
i : integer;

begin
WriteLn('Tabla de multiplicar del 2:');
for i := 1 to 10 do
WriteLn('2 * ', i :2, ' = ', 2 * i :2);
Write('Pulse una tecla para salir...');
ReadKey
end.

Suerte.

con los 2 programas ecuaciones y tabla del dos pascal me marca un error de division por cero no se por q, podrian ponerse en contacto conmigo? mi mail es [email protected] GRACIAS por ayudarme

De nada, Nancy.
Tenés que bajar el parche:

http://www.upv.es/protel/usr/jotrofer/pascal/T7TPLFIX.ZIP
http://www.upv.es/protel/usr/jotrofer/pascal/crtbug.html#1

Suerte.