cau 2
uSES CRT;
begin
CLRSCR;
WRITELN(((121*122)div 2)-(22*23) div 2);
READLN
end.
cau 3.
uses crt;
var a:array[1..1000] of longint;
i,n,t:longint;
Begin
clrscr;
readln(n);
for i:=1 to n do begin readln(a[i]); t:=t+a[i]; end;
for i:=1 to n do write(a[i],' '); writeln;
writeln('tong ',t);
readln
end.
