Đề bài mẫu: Viết chương trình tính tổng các số chẵn từ 1 đến n (n nhập từ bàn phím).

VCT:

program phuongt;
uses crt;
  var n, s, i: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=0;
       for i:=1 to n do if i mod 2 = 0 then s:=s+i;
       write('Tong = ', s);
       readln
end.

program baigiai;

uses crt;

var i,n,x,dem:integer;

A: array[1..100] of integer;

begin

write(' nhap so phan tu co trong mang='); readln(n);

for i:=1 to n do

begin

write('A[',i,']=');readln(A[i]);

end;

for i:=1 to n do

write(A[i]);

write('nhap x='); readln(x);

if A[i]=x then

dem:=dem+1;

write('so phan tu bang ',x,' la',dem);

readln; 

end.