Επίλυση πρωτοβάθμιας εξίσωσης με την PASCAL

Program prwtovathmia;
Uses crt;
Var a,b:integer;
x:real;
Begin
Clrscr;
Repeat
         Write('Δώσε τον Α:');
         Readln(a);
Until a<>0;
Write('Δώσε τον Β:');
Readln(b);
x:=-b/a;
Writeln('To x einai ',x:8:2);
Readln;
End.