с решением!

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.
Результаты работы внесите в таблицу для заданных x и y.
X=28
Y=50