Tugas 3 for : DISKRIMINAN

program DISKRIMINAN;
uses wincrt;

var

ket : String;
i:longint;
N:longint;
A,B,C:longint;
D:real;

begin
clrscr;
A:=0;B:=0;C:=1;
write(‘Jumlah Data  : ‘);readln(N);
for i:= 1 to N do
begin
D := (B*B)-(4*A*C);
if D > 0 then
begin
ket := ‘Akar Real’;
end
else if D=0 then
begin
ket := ‘Akar Kembar’;
end
else
begin
ket := ‘Akar Kompleks’;
end;
write(‘ ‘,i,’. ‘,A,’ ‘,B,’ ‘,C,’ ‘);write(D:12:2);writeln(‘  ‘,ket);
{i := i+1; }
A := A+2;
B := B+5;
C := C+2;

end;
readln;
end.