CẮT BÁNH
Hôm nay lớp Ôn tin tổ chức liên hoan cuối đợt. Cô giáo phụ trách mua những chiếc bánh rất ngon và cắt ra cho mỗi em một phần. Để thưởng cho các học sinh chuẩn bị đạt giải nhất, cô giáo định chia cho các em này những phần bánh to hơn những bạn khác. Mỗi chiếc bánh có thể được cắt ra thành 3 phần hoặc cắt thành 5 phần. Biết rằng lớp Ôn tin có n học sinh và số chiếc bánh mà cô giáo chủ nhiệm mua là m chiếc. Sau khi cắt bánh và chia ra thì mỗi em học sinh nhận đúng một phần bánh không dư không thiếu.
Yêu cầu: Hãy cho biết lớp Ôn tin có bao nhiêu học sinh đạt giải nhất?
Dữ liệu vào: Nhập từ bàn phím hai số nguyên dương n và m (1≤n, m≤100)
Kết quả ra: Xuất ra màn hình số học sinh đạt giải nhất của lớp Ôn tin. Nếu có nhiều phương án thì chỉ chọn phương án có nhiều học sinh đạt giải nhất. Làm bằng pascal và KHÔNG được sử dụng chương trình con hay thủ tục
uses crt; var n,m,i,max:longint; begin clrscr; readln(n,m); max:=0; for i:=0 to m do if (i*3+(m-i)*5=n)and(i*3>max) then max:=i*3; writeln(max); readln end.