b)for i:=15 to 100 do write(i:5);
in ra màn hình các số từ 15 đến 100, mỗi số cách nhau 5 khoảng trắng.
c)for x:=0 to 20 do write(x:5);
in ra màn hình các số từ 0 đến 20, mỗi số cách nhau 5 khoảng trắng.
d)for i:=1 to 200 do
begin
x:=i-20;
write(x:8);
end;
in ra màn hình kết quả của các số từ 1 đến 200 trừ cho 20, mỗi số cách nhau 8 khoảng trắng.