Ctrl+Y nha bn

uses crt;
var i,n,chan,le: longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
        if i mod 2=0 then chan:=chan+i
        else le:=le+i;
    writeln('Tong cac so chan la: ',chan);
    write('Tong cac so le la: ',le);
    readln
end.

uses crt;
var a: array[1..100] of longint;
    i,n,max,min: longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap so thu ',i,': '); 
        readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    for i:=1 to n do
    begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('So lon nhat trong mang la: ',max);
    write('So nho nhat trong mang la: ',min);
    readln
end.

cái gì có giá trị bao nhiêu bạn ghi rõ ra nha

D

Câu lệnh đúng là câu  lệnh số 3

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