ПОМОГИТЕ НАПИСАТЬ ПРОГРАМЫ НА ПАСКАЛЕ
№1 В области 12 райнов. Известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2). Определить общую площадь территории области.
№2   Известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в баллах. Опре­делить сумму баллов, полученных каждым спортсменом.

2.

vara1,a2,a3,a4,a5,a:integer;b1,b2,b3,b4,b5,b:integer;beginreadln (a1,a2,a3,a4,a5);readln (b1,b2,b3,b4,b5);a:=a1+a2+a3+a4+a5;b:=b1+b2+b3+b4+b5;writeln (a,' ',b);end.

1. vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12:integer;b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12:integer;n:integer;beginreadln (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12);readln (b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12);n:=a1*b1+a2*b2+a3*b3+a4*b4+a5*b5+a6*b6+a7*b7+a8*b8+a9*b9+a10*b10+a11*b11+a12*b12;writeln (n);end.