Программирование 11 класс

2
uses crt;
var a,b,x: real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
if a=0 then writeln('Решений нет') else
begin
x:=-(b/a);
writeln(x);
end;
end.