Каковы особенности отраслевой структуры хозяйства США, Канады и Мексики?

В Паскале:
uses crt;
var a, g:integer;
begin
write('a='); read(a);
g:=sqr(a)-2*a;
writeln('Значение а=',g);
end.