Составил таблицу, фамилии и номер дома можно выбирать из списка.
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419
Program gt;
var n,i,j:integer;
a:array[1..100,1..100]of real;
s:real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if(i=j)then s:=s+a[i,j];
end;
writeln(s);
end.
<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
end.