Program P20;
 { Tipul Pozitiv moşteneşte proprietăţile tipului integer }
type Pozitiv=1..32767;
var x, y, z : Pozitiv;
begin
 writeln('Introduceţi numerele pozitive x, y:');
 readln(x,y);
 writeln('x=', x);
 writeln('y=', y);
 z:=x+y; writeln('x+y=', z);
 z:=x-y; writeln('x-y=', z);
 z:=x*y; writeln('x*y=', z);
 z:=x mod y; writeln('x mod y=', z);
 z:=x div y; writeln('x div y=', z);
end.