Выделить всё
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.