Program P21;
type Indice=1..10;
var i, j, k, m : Indice;
begin
 writeln('Introduceţi indicii i, j:');
 readln(i, j);
 k:=i+j;
 writeln('k=', k);
 m:=i-j;
 writeln('m=', m);
end.