язык Паскаль. Найти среди чисел a,b и c наибольшее и заменить его суммой чисел c и b

program zamena;

var a, b, c, mx: integer;

begin

readln(a);

readln(b);

readln(c);

mx:=a;

if mx<b then mx:=b;

if mx<c then mx:=c;

write('Max is ');

writeln(mx);

mx:=c+b;

writeln(mx);

end.