Составить программу: 1. Задано пятизначное число. Выделить цифры, стоящие в…

1.uses crt; var x: integer; beginread (x); if inttostr (x) [1]>inttostr (x) [5] thenwriteln (inttostr (x) [1],',inttostr (x) [5]) else writeln (inttostr (x) [5],',inttostr (x) [1]); end.2.uses crt; var x: integer; beginread (x); if (x div 10) mod 11=0 thenwriteln ('Yes') elsewriteln ('No'); end.