Вычислить сумму и разность двух целых чисел вводимых с клавиатуры(программа паскаль) , нужно

Var
  a,b,r,s: integer;
begin
  readln (a,b); 
  if a>b then r:=a-b
  else r:=b-a;
  s:=a+b;
  writeln ('Сумма равна: ',s,'  Разность равна: ',r);
end.