calcular o coeficiente angular [RESOLVIDO]

o programa em pascal esta dando o valor do coeficiente angular errado

vai o codigo:

Program coeficiente_agular;
var
x1,x2:integer;
y1,y2:integer;
calc:real;
calc1:real;
calc2:real;
Begin
write('Digite o valor x1 = ');
read(x1);
write('Digite o valor x2 = ');
read(x2);
write('Digite o valor y1 = ');
read(y1);
write('Digite o valor y2 = ');
read(y2);
calc:= x1-y1;
calc1:=x2-y2;
calc2:=calc1/calc;
if calc = 0 then
write('Essa equaçao igualou a zero ')
else
write(calc2);
End.

Este post tá um bagunça. Não dá para entender direito o que quer dizer, com muitas abreviações, tudo jogado, emfim, está parecendo #@$%@#@#$!!! no meu progr%¨&#%#$%#$

Eu fiz :>^^Ç^ÇÇ^{`{^:^>, oque pode estar ()@#$(@#$?

Embraces!

Tá calculando errado porque tua equação tá errada.
Tu inverteu as coisas, manolo!

Vai estudar matemática ANTES de programação!

Mania de estudante de ensino médio que quer facilitar conta fácil...

http://www.brasilescola.com/upload/e/cauculo%20coefi2.JPG

Se você imaginou assim, também, então o cálculo correto é A = y2 - y1 / x2 - x1