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.