Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Только сейчас зашёл. Если мне мозг не изменяет, то получится число 636
1. 1
2 3
3. 1) 2
2) 3
3) 1
4. 2
5. 3
6. 1
7. 1 и 4
8. 3
9. 4
10. 2
11. 2
12. 1
13. 4
14. 4
15. 2
16. 1
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!