7класс var a, b, c, d, a1, b1, c1, max: integer; begin readln (a, b, c); d: =(max(max(a, b), c)); ошибка : ожидалось имя процедуры или функции a1: =d-a; b1: =d-b; c1: =d-c; write (a1,' '); write (b1,' '); write (c1); end.

//Pascal
var A, B, C, max: real;
begin
    readln (A, B, C);
    if A >= B then
      max := A
    else
      max := B;  
    if A > max then
      max := C;
    writeln(max - A,' ', max - B, ' ', max - C);
end.