{Bài 7 : - Phép toán chia hết là phép toán có số dư bằng 0.
- Hãy viết chương trình, nhập vào số nguyên dương x (với 10 < x < 2011).
Với y = x2+ 2011, kiểm tra và thông báo ra mà hình xem y có chia hết cho 5 hay không?}
program bieuthuc;
uses crt;
var x,y:integer;
begin
clrscr;
write('nhap x:');readln(x);
if (10 begin
y:=x*x+2011;
if y mod 5 = 0 then write(y,' chia het cho 5')
else write(y,' khong chia het cho 5');
end
else write(x, ' khong thoa dieu kien');
readln;
end.