1/ Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(không sử dụng biến). 2/ Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(có sử dụng biến). 3/Em hãy viết chương trình pascal để viết ra màn hình(đen) họ tên của mình 100 lần. 4/ Em hãy viết chương trình pascal để nhập vào màn hình (đen)nhiều số nguyên(không biết bao nhiêu số) cho đến khi nào nhập số 0 thì dừng và cho biết đã nhập bao nhiêu số, không tính số 0. 5/ Em hãy viết chương trình pascal để nhập vào màn hình (đen)20 số nguyên và tính tổng các số đã nhập.

1. 

begin

end.

2. 

var ;

begin

end.

3.

var s:string;

      i:byte;

begin

write('Nhap ten: '); readln(s);

for i:=1 to 100 do

writeln(s);

readln

end.

4. 

var n,d:integer;

begin

repeat 

write('Nhap n: '); read(n);

inc(d);

until(n=0);

writeln;

write('d =',d);

readln

end.

5.

var i:byte;

     c,s:integer;

begin

for i:=1 to 20 do

begin

read(c);

s:=s+c;

end;

writeln;

write('Tong la: ',s);

readln

end.

1/

Dòng lệnh cần là:

Begin

end.

2/

var a:longint;

Begin

end.

3/

Program BTH;

uses crt;

var a:string;

i:byte;

Begin

clrscr;

Write('Nhap ten: ');readln(a);

For i:=1 to 100 do

Writeln(a);

readln;

end.

4/

Program BTH;
Uses Crt;
var n,i,k:longint;
Begin
        clrscr;
        i:=1;
        k:=0;
        n:=1;
        While n<>0 do
        Begin
        Write('Nhap so thu ',i,' : ');readln(n);
        If n<>0 then
        Begin
                i:=i+1;
                k:=k+1;
        end;
        end;
        Writeln('So luong so co trong day: ',k);
        readln;
end.

5/

Program BTH;
Uses Crt;
var n,i,k:longint;
Begin
        clrscr;
        For i:=1 to 20 do
        Begin
        Write('Nhap so thu ',i,' : ');readln(n);
        k:=k+n;
        end;
        Writeln('Tong day so tren la: ',k);
        readln;
end.