Составить программу: 1. задано пятизначное число. выделить цифры, стоящие в разряде единиц и разряде тысяч. вывести их в порядке убывания 2. задано четырехзначное число. удалить из записи числа последнюю цифру. определить, будет ли оставшееся число кратно 11

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