Задано натуральное четырехзначное число. Получить из его цифр все возможные двузначные числа
Pascal, решите пжл

var a,b,k,l,m,n:integer;beginreadln(a);b:=a;n:=a mod 10;k:=a div 1000;l:=(a mod 1000) div 100;m:=(a mod 100) div 10;writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n);end.