Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:
Program Giai_PTB2;
Uses crt;
var a,b,c: real;
D, x1, x2: real;
begin
clrscr;
write(' a, b, c: ');
readln(a, b, c);
D:= b*b-4*a*c;
If D<0 then writeln (' Phương trinh vo nghiem.')
else
begin
x1:= (-b-sqrt(D))/(2*a);
x2:= -b/a-x1;
writeln(' x1= ', x1:8:3, x2= ', x2:8:3);
end;
readln
end.