Канада, Бразилия, Япония - это страны.
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
Глобальные, натальная , персональные , локальная,кампусная,городская
( WAN , BAN, PAN, LAN ,CAN , MAN)