program pr_1; var x,y,sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln ('sum=',sum); writeln ('umn=',umn); readln; end.