7 классvar a, b, c, d, a1, b1, c1, max:integer;beginreadln (a,

Ну да. Нужна процедура max

что поправить?

Написать функцию/функцию max...

Она же вроде написана

У тебя переменная max. Это не процедура/функция.

а как поправить?

Написать процедуру/функцию max...

Задание какое?

Даны три числовые переменные А, В, С. Отыскать наибольшее значение и заменить, хранящиеся в переменных значения, на разницу между наибольшим значением и тем,что храниться в переменной. Результаты вывести на экран. Пример работы программы:Ввод: 10 15 6Вывод: 5 0 9Ввод: 15 12 13.5Вывод: 0 3 1.5Ввод: -14 8 2Вывод: 22 0 6

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