Напишите программу, которая считает три числа и большее из них уменьшит на 5.

Program gt;

var a, b, c, max:integer;

begin

readln (a, b, c);

max:=a;

if (b>max) then max:=b;

if (c>max) then max:=c;

if (a=max) then a:=a-5;

if (b=max) then b:=b-5;

if (c=max) then c:=c-5;

writeln (a,' ', b,' ', c);

end.