Program P39;
 { Compatibilitate din punctul de vedere al atribuirii }
type T1=1..10;   { subdomeniu de integer }
     T2=5..15;   { subdomeniu de integer }
var i : T1;
    j : T2;
    k, m, n : integer;
    x : real;
begin
 write('k='); readln(k);
 i:=k;            { corect pentru  1<=k<=10 }
 write('m='); readln(m);
 j:=m;            { corect pentru  5<=m<=15 }
 write('n='); readln(n);
 i:=n+5;          { corect pentru -4<=n<=5  }
 j:=n+2;          { corect pentru  3<=n<=13 }
 x:=i+j;
 writeln('x=', x);
end.