Câu 2:
uses crt;
var s:real;
begin
clrscr;
s:=(121-22)/1+1;
write((121+22)*s/2:0:2);
readln;
end.
Câu 3:
uses crt;
var n,i,sum:longint;
a:array[1..1000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
sum:=sum+a[i];
end;
for i:=1 to n do write(a[i],' ');writeln;
write(sum);
readln;
readln;
end.