program b1;

uses crt;

var a,b,c,d:Real;

begin;

clrscr;

write('nhap a,b,c: ');readln(a,b,c);

d:=sqr(b)-4*a*b;

witeln(d);

readln;

end.

program b2;

uses crt;

var p,x,y:real;

begin

clrscr;

write('nhap x,y: ');readln(x,y);

p:=(3*sqr(x)+2)/(y-1);

writeln(p);

readln;

end.

program b3;

uses crt;

var a,b:Extended;

begin

clrscr;

writeln('nhap a,b: ');readln(a,b);

writeln('so nguyen',a div b);

writeln('so du',a mod b);

readln;

end.

Bài 1: 

Program bai1;

Uses crt;

Var a,b,c: real;

Begin

Clrscr;

Write('Nhap a,b,c:');

Readln(a,b,c);

Write('Gia tri cua bieu thuc:', b*b-4*a*c:9:2);

Readln

End.

Bài 2:

Program bai2;

Uses crt;

Var x,y:real;

Begin

Clrscr;

Write('Nhap x,y:');

Readln(x,y);

Writeln('Gia tri cua bieu thuc:', (3*x*x+2)/(y-1):9:2);

Readln;

End.

Bài 3:

Program bai3;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('So bi chia:'); Readln(a);

Write('So chia:'); Readln(b);

Writeln('So nguyen=', a div b);

Writeln('So du=', a mod b);

Readln 

End.