Równania

Równanie liniowe
program rownanieliniowe;
uses crt;
const k1='1 rozwiazanie';
      k2='nieskonczenie wiele rozwiazan';
      k3='brak rozwiazania';
var a,b,x:real;
begin
  clrscr;
  writeln('Podaj a i b');
  read(a,b);
  if a=0 then
  begin
    if b=0 then
     writeln(k2) else
     writeln(k3);
  end
  else
  begin
    writeln(k1);
    x:=-b/a;
    write(x:5:3);
  end;
  readln;
  readln;
end.

Równanie kwadratowe

program rownaniekwadratowe;
uses crt;
const k1='dwa rozwiazania';
      k2='jedno rozwiazanie';
      k3='brak rozwiazan';
var a,b,c,delta:real;
begin
  clrscr;
  a:=1;b:=1;c:=1;
  if a=0 then write('rownanie liniowe')
  else
  begin
    delta:=b*b-4*a*c;
    if delta>0 then write(k1);
    if delta=0 then write(k2);
    if delta<0 then write(k3);
  end;
  readln;
end.