Code Pascal: Cấu trúc lặp WHILE...DO

Viết chương trình tính trung bình của n số (nhập từ bàn phím)

Program Trung_binh_day_so ;

VAR

                        n, count : Integer ;

                        x, sum, average : real ;

BEGIN

                        count := 1 ;

                        sum   := 0 ;

            Write (' Nhập n = ');      readln (n) ;

                        WHILE  count  < n+1  DO

                                    BEGIN

                                                Write (' Nhập giá trị thứ' , count,' của x = ' ) ;

                                                readln (x) ;

                                                sum  := sum + x ;

                                                count := count + 1 ;

                                    END ;

                        average:=  sum/n ;

                        Writeln (' Trung bình là ='  , average : 10 : 3 ) ;

                        Writeln (' Nhấn Enter để thoát ...' ) ;

                        Readln ;

END. 

Code Pascal: Cấu trúc rẽ nhánh IF..THEN..ELSE (cơ bản)

//Tính căn bậc 2 của một số

PROGRAM Tinh_can_bac_hai ;

VAR  

            a : Real ;

BEGIN

            Write ( Nhập số a =  );

            Readln(a) ;

            IF a < 0 THEN Write (' a : 10 : 2 , là số âm nên không lấy căn được !!! ')

            ELSE

                  Writeln (' Căn số bậc 2 của , a : 2 : 2 , la , SQRT(a) :10 : 3 ');

            Readln; {Dừng màn hình để xem kết quả}

END. 

Code Pascal: Nhập một xâu, kiểm tra xâu có đối xứng không

Yêu cầu: Nhập một xâu, kiểm tra xâu có đối xứng không 

procedure test_xaudoixung;

var  s: String;

i,j,count:integer;

begin

     write('Nhap vao xau s=');

     readln(s);

     i:=1; j:=length(s);

     count:=0;

     while( j >= i) do

     begin

          if s[i] <> s[j] then

          begin

             count:=1;

             break;

          end

          else

          begin

               inc(i);

               dec(j)

          end;

     end;

     if count=0 then writeln('Xau doi xung')

     else

         writeln('Xau ko doi xung');

end;

Code Pascal: Nhập vào một số, kiểm tra số có đối xứng hay không

procedure bai1;
var
n,n1,temp:integer;
BEGIN
    repeat
          clrscr;
          write('Nhap vao so n=');
          readln(n);
          if((n>-32000) and (n<32000) )then break;
    until (1=1);
    n1:=0;
    temp:=n;
    while temp>0 do
    begin
         n1:=n1*10 + temp mod 10;
         temp:= temp div 10;
    end;
    if n1=n then writeln('Doi xung')
    else
        writeln('Khong doi xung');
END;