B1/
program Hello;
uses crt;
var a,b: real;
begin
writeln('ax + b = 0');
write('a = '); readln(a);
write('b = '); readln(b);
if (a = 0) and (b = 0) then writeln('Phuong trinh coc vo so nghiem')
else if (a = 0) and (b <> 0) then writeln('Phuong trinh vo nghiem')
else writeln('Phuong trinh co nghiem duy nhat x = ', (-b)/a:2:2);
readln;
end.
B2/
program Hello;
uses crt;
var x,y,z,t: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
t:= x*x + y*y;
if t <= 1 then z:= t;
if (t > 1) and (y >= x) then z:= x + y;
if (t > 1) and (y < x) then z:= 0.5;
writeln('z = ', z:2:2);
readln;
end.
