trójmian kwadratowy operacje na znakach

program trojmian;
uses crt;
var a,b,c:real;
procedure rozw(a,b,c,d:real);
begin
clrscr;
writeln ('podaj wspolczynnik a musi byc rozny od 0!');
readln(a);
if a=0 then writeln('podaj inna');
writeln ('podaj wspolczynnik b');
readln(b);
writeln ('podaj wspolczynnik c');
readln(c);
writeln ('podaj wspolczynnik d');
readln(d);
begin
d:=bb-4a*c;
if d<0 then writeln('S T O P');
if d>0 then writeln
readln
end.

NIE WIEM CO MAM DALEJ ZROBIC !!! RATUNKU ?????

Nono.. trochę namieszałeś:

program trojmian;

uses crt;

var 
a,b,c: real; 

procedure rozw(a,b,c,d:real); // d ?
begin
clrscr;
writeln ('podaj wspolczynnik a musi byc rozny od 0!');
readln(a);
if a=0 then writeln('podaj inna'); // tu jakaś kicha .. 
writeln ('podaj wspolczynnik b');
readln(b);
writeln ('podaj wspolczynnik c');
readln(c);
writeln ('podaj wspolczynnik d'); // d ? - a co to
readln(d);
begin
d:=b*b-4*a*c; // hmmmm  :-) 
if d<0 then writeln('S T O P'); // to ma sens.. jakiś
if d>0 then writeln // x1 := (-b-sqrt(d))/(2*a);  x2 := (-b+sqrt(d))/(2*a)
readln
end.

Jednak na twoim miejscu jeszcze bym popracował nad tym - bo... straszna maniana.