1.D if a <b then x:=a else x:=b ;
2.B a>b
3.A { }
4.D 123_abc
5.(không biết làm -_-)
6.
Program tinh_tong;
Uses crt;
Var S,i,n: integer;
Begin
Write ('nhap n=');
Readln (n);
S:=0;
For i:=1 to n do
If i mod 2= 0 then
S:= S+ i;
Writeln ('Tong cac so chan tu 1 den n la :', S);
Readln
End.