Phuong trinh bac nhat + so lon nhat

Phuong trinh bac nhat mot an
program phuongtrinh;
var a,b : real;
begin
wirteln(`phuong trinh bac nhat co dang ax+b=0`);
write(`nhap a`); readln(a);
write(`nhap b`); readln(b);
if a<> 0 then
write(`phuong trinh co nghiem duy nhat x:`,(-b/a));
esle {a=0}
if b=0 then
write(`moi gia tri cua x la nghiem phuong trinh`);
else { a=0,b khac 0}
write(`phuong trinh vo nghiem`);
readln;
end.


Tim so lon nhat
program lonnhat;
var
a,b,c ,max:integer;
begin
write(`nhap 3 so`); readln(a,b,c);
max :=a;
if max if max write(`so lon nhat la`,max);
readln;
end.
Tim so nho nhat
program nhonhat;
var
a,b,c ,min:integer;
begin
write(`nhap 3 so`); readln(a,b,c);
min :=a;
if min>b then max :=b;
if min>c then max :=c;
write(`so lon nhat la`,max);
readln;
end.