Benim için biraz zor oldu ama sonunda yapabildim

uses crt;
var
del,kok1,kok2:real;
a,b,c:real;
procedure kucuk;
begin
writeln('kökleri yok');
end;
procedure sfr;
begin
kok1:=((-b)/(2*(a)));
kok2:=(-(-b)/(2*(a)));
writeln(' kok1 ');
writeln(kok1:4:2);
writeln('kok2');
writeln(kok2:4:2);
readln;
end;
procedure buyuk;
begin
writeln('kökleri var');
kok1:=(((-b)+(sqrt(del)))/(2*(a)));
kok2:=(((-b)-(sqrt(del)))/(2*(a)));
writeln(' kok1 ');
writeln(kok1:4:2);
writeln(' kok2 ');
writeln(kok2:4:2);
end;
begin
clrscr;
writeln('Kök degerlerini gir'); read(a,b,c);
del:=(sqr(b)-(4*a*c));
write('Delta=');
writeln(del:4:2);
readln;
if del <0 then
kucuk;
if del=0 then
sfr;
if del>0 then
buyuk;
readln;
end. [/size]