<span><span><span><span>
Вроде бы такое решение </span></span></span></span>
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
<span>var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a; end;
if c>max then max:=c;
if c<min then min:=c;
writeln(max+min);
end<span>.
Пример:
3 8 5
11</span></span>
Я бы отнесла былины к социальным моделям, т.к. они моделируют ситуации взаимоотношений между людьми в обществе.