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.

//Pascalvar 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.