Составить программу для паскаля.1)Определить количество трехзначных чисел сума цифр которых равна числу N.2)Дано натуральное число N.Составить программу меняющихся местами первую и последнюю цифру.

1) var  s: string;   i, n,c: integer; begin   read(n);   for i := 100 to 999 do   begin     s:=inttostr(i);     c:=(strtoint(s[1])+strtoint(s[2])+strtoint(s[3]));     if(n=c)then writeln(s);   end; end. 2) var  s: string; begin   read(s);   swap(s[1],s[s.Length]);   write(s); end.