Nhập hai số a,b kiểm tra b khác 0, tính a/b, ngược lại thông báo không thể tính toán
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if b=0 then writeln('Khong the tinh toan')
else writeln(a/b:4:2);
readln;
end.