Ví dụ : viết chương trình nhập n số nguyên từ bàn phím. Kiểm tra và thông báo ra màn hình có bao nhiêu số lớn hơn số x, với n và x được nhập từ bàn phím
uses crt;
var a:array[1..100]of longint;
x,n,i,d:longint;
begin
clrscr;
readln(n,x);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>x then d:=d+1;
end;
writeln(d);
readln
end.