a)In ra màn hình 3 dòng chữ"Toi la Turb Pascal"
For i :=....1...... to..3...do writeln('...Toi la Turb Pascal........')
b)Tính tổng của n số tự nhiên đầu tiên
For i :=..1...to..n....do
S:=....s+i;....................
a: for i:=1 to n do writeln('Toi la Turbo Pascal');
b: for i:=1 to n do s:=s+i;