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

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:=555;

   writeln(mx);

end.

Объяснение: