uses crt;

var a:array[1..10000] of longint;

var i,n,d,k:longint;

begin

writeln('nhap n=');read(n);

for i:=1 to n do

begin

writeln('a[',i,']=');read(a[i]);

end;

for i:=1 to n do d:=d+a[i];

k:=1;

for i:=1 to n do begin if k<a[i] then k:=a[i]; end;

writeln('tong=',d);

writeln('gtln=',k);

readln;

end.

uses crt;

var i,n,f:longint;

var a:array[1..1000] of longint;

begin

             writeln('nhap n=');read(n);

             for i:=1 to n do

             begin

                            writeln('a[',i,']=');read(a[i]);

            end;

            for i:=1 to n do

            f:=a[1];

            for i:=1 to n do

             begin  

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

           end;

           writeln('gtnn=',f);

      readln;

 end.

sai ở program vs uses crt chx cách,trc else ko ;

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;