Witam wszystkich
Potrzebuje pomocy w stworzeniu programu do obliczania równania liniowego
Do tej pory udało mi się stworzyć to ale programik nie działa tak jak powinien
Program Rownanie;
uses crt;
var a: real;
b: real;
x: real;
begin
Clrscr;
write ('wprowadz wspolczynnik kierunkowy a: ');
readln(a);
write ('wprowadz wspolczynik b: ');
readln(b);
if( a=0 and b=0 ) then writeln ('Nieskonczenie wiele rozwiazan')
if ( a=0 and b<>0 ) then writeln ('brak rozwiazania;)
else x:=-b/a
writeln ('x=' ,x:2:2);
end.
Proszę o pomoc z tym problemem
