Выделить всё

program untitled;

var A, B, C, D, s, max:integer;
BEGIN

	max := -999;
	
	read (A);
	if A > max then max := A; 
	
	readln (B);
	if B > max then max := B; 
	
	readln (C);
	if C > max then max := C; 
	
	readln (D);
	if D > max then max := A; 
	
	s := (A + B + C + D) - max;	
	
	write ('Сумма:', s);
END.