C

var i,n,max: integer;

a: array[1..100] of integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

max:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

write(max);

readln

end.

var i,s,n: integer;

a: array[1..100] of integer;

begin

readln(n);

for i:=1 to n do begin readln(a[i]); s:=s+a[i]; end;

write(s);

readln

end.

var a,b,c,d: integer;

begin

readln(a,b,c,d);

writeln('Tong = ',a+b+c+d);

writeln('Tich = ',a*b*c*d);

readln

end.

var i: byte;

begin

for i:=1 to 20 do writeln('Toi yeu Viet Nam');

readln

end.

Thiếu hai dấu ":" trước hai dấu "="

sửa: i:=10; while i>1 do i:=i-1;

var n,i,max,min,s: integer;

a: array[1..100] of integer;

begin

readln(n);

for i:=1 to n do begin

readln(a[i]);

s:=s+a[i];

end;

max:=a[1]; min:=a[1];

for i:=2 to n do begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('MAX=',max,'  | MIN=',min);

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;

write('Tong = ',s);

readln

end.

C2:

var i,s: integer;

begin

while s<=100 do begin

s:=s+i;

i:=i+1;

end;

write(s);

readln

end.