Как узнать сколько точек с целыми координатами попадают в треугольникAOB находящийся в первой четверти?НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЬ .ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!

Решение далеко не самое эффективное, но зато очень простое:
var a,b,x,y,k:integer;
begin
write('a, b:');
readln(a,b);
k:=0;
for x:=0 to a do
 for y:=0 to b do
  if y<=-(x-a)*b/a then k:=k+1;
writeln('k = ',k);
end.

Пример:
a, b:
4 3
k = 11

PS. Точки, лежащие на осях координат и на стороне AB, тоже подсчитываются. Если они не нужны, то циклы начинайте с 1 и в условии используйте строгое равенство.