pascal 11 chỉ giúp em vài bài

[liliaa]

1. Đọc vào một dãy n số nguyên ( n <=100), ghi dãy số đó vào tệp có tên BÂITP.INP
2. VIết chương trình thực hiện tối giản phân số, trong đó có sử dụng hàm tùim ước số chung lớn nhất của 2 số nguyên dương
3. Mở tệp BAITAP.INP, in dãy số trong tệp ra màn hình. tính tổng của dãy số đó
4. Nhập vào hai xâu từ bàn phím, kiểm tra xem kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không ?
5. Nhập vào một xâu từ bàn phím, đưa ra màn hình xâu thu dc bằng cách loại bỏ các dấu cách từ xâu đã cho

[kylobytes]

3.

program sosanhchuoi;
var str1,str2:string[50];
begin
    write('Nhap xau 1: ');
    readln(str1);
    write('Nhap xau 2: ');
    readln(str2);
    if(str1[1]=str2[length(str2)]) then
         writeln('Trung roi')
    else
         writeln('Khong trung roi');
    readln;
end.

4.

program xoacach;
var i:integer;
    str:string[50];
begin
    write('Nhap xau: ');
    readln(str);
    for i:=1 to length(str) do
        if(str[i]=' ') then
            delete(str,i,1);
    for i:=1 to length(str) do
        write('Ket qua: ',str[i]);
    readln;
end.

còn lại chưa giúp được

[TP2]

5.

var 
   xau: string;  
   j: byte; 
begin  
   Write ('Xau= '); 
   Readln (xau); 
   For j:= 1 to length (xau) do 
     if xau ***91;j***93;= #32 then delete (xau, j, 1);
   writeln (xau); 
   Readln 
end. 

Bài này đơn giản thôi mà. Xem thêm
http://delphiviet.co.cc/forum/viewtopic.php?f=9&t=22

[=========> Bổ sung bài viết <=========]

2. Xem tại đây
http://delphiviet.co.cc/forum/viewtopic.php?f=10&t=28
1.

uses crt;   
const 
   max= 32500;
var 
   f: text; 
   j: byte;
begin  
   assign (f, 'Baitap.Inp'); 
   rewrite (f); 
   for j:= 1 to 100 do 
   Write (f, random (Max)); 
   close (f);
end.