câu 1:

a) không hợp lệ

sửa: for i:=1 to 100 do writeln('A');

b) không hợp lệ

sửa: for i:=1 to 10 do writeln('A');

c) không hợp lệ

sửa: x:=10;

while x=10 do x:=x+5;

d) không hợp lệ

sửa: x:=10;

while x=10 do x:=x+5;

câu 2: 

program oken;
uses crt;
var s,i,t:longint;
begin
        clrscr;
        write('nhap so T: '); readln(t);
        for i:=1 to t do
                s:=s+i;
        writeln('Tong cac so tu 1 den ',t,': ',s);
        readln;
end.

a) For i:=100 to 1 do writeln('A');
=> Câu lệnh trên không hợp lệ vì giá trị đầu < giá trị cuối
=> For i:=1 to 100 do writeln('A');
b) For i:= 1.5 to 10.5 do Writeln('A');
=> Câu lệnh trên không hợp lệ vì giá trị đầu và giá trị cuối là số nguyên
=> For i:= 1 to 10 do Writeln('A');
c) X:= 10; while X:= 10 do X:= X+5;
=> Câu lệnh trên hợp lệ
d) X:=10; while X=10 do X= X+5
=> Câu lệnh trên không hợp lệ
=> X:=10; while X: =10 do X:= X+5

Câu 2

Ta có hai hướng là dùng công thức và dùng lệnh For ... do
1.Dùng công thức:
program Tinh;
uses crt;
var n,s: longint;
begin
clrscr; readln(n); s:=n*(n+1)/2;
writeln('Tong la : ',s);
readln
end.
2.Dùng lệnh For ... do :
program Tinh;
uses crt;
var i,n: integer; s: longint;
begin
clrscr; readln(n); s:=0;
for i:=1 to n do s:=s+i;
writeln('Tong la : ',s); readln