[pascal] equazione di primo grado in x: ax+b=0

[MaStErYuRi]

il programma l'ho iniziato a svolgere in questo modo:

program divisibilita;
uses crt;
var m,n:real;
begin
writeln('Inserisci due numeri');
readln(m,n);
if [formula mancante] then writeln('Divisibile') else writeln('non divisibile')
end.