HỌC TIN CÙNG THỦ KHOA

Mời các bạn download tại: Click here

Tổng hợp danh sách các ngoại lệ trong Free Pascal: Click here

{$MODE OBJFPC}
uses crt, sysutils;
var a, b:integer;
    c, d:real;

BEGIN
        CLRSCR;
        try
                write('nhap hai so a va b: ');
                readln(a,b);
                c:=a/b;
                writeln(c:0:2);

                d:=sqrt(a*b);
                writeln(d:0:2);

                a:= MAXINT;
                a:= a + 1;
                writeln(a);
        except
                on e: EDivByZero do writeln(e.message);
                on e: EMathError do writeln(e.message);
                on e: EIntOverflow do writeln(e.message);
        end;

        READLN;
END.