Не понимаю где ошибка?
program a3;
var
a, b, c, p: integer;
begin
if a>b then
if b>c then
min:= c;
avg:= b;
max:= a;
else
min := b;
avg := c;
max := a
else
begin
if a>c then
min := c;
avg := a;
max := b
else
min := a;
avg := c;
max := b;
end
else
if b>c then
min := b;
avg := a;
max := c;
//else
//p:=a, b, c
writeln ('минимальное число= ',min, среднее число= ', avg 'максимальное число= ', max)
end.

Предыдущий
вопрос Следующий
вопрос

Ошибка в данном коде связана с неправильным использованием операторов условия и синтаксисом языка Pascal.

Во-первых, в строке "if a>b then" отсутствует блок "begin", который должен предварять операторы, подлежащие выполнению в случае, если условие истинно.

Во-вторых, не все операторы "else" имеют соответствующие операторы "if" или "begin", что также является ошибкой.

Исправленный вариант программы:

program a3;
var
a, b, c, min, avg, max: integer;
begin
// Ввод значений переменных a, b, c (например, с клавиатуры)
// Пример:
a := 3;
b := 5;
c := 2;
if a > b then
begin
if b > c then
begin
min := c;
avg := b;
max := a;
end
else
begin
min := b;
avg := c;
max := a;
end;
end
else
begin
if a > c then
begin
min := c;
avg := a;
max := b;
end
else
begin
min := a;
avg := c;
max := b;
end;
end;
writeln('минимальное число= ', min, ' среднее число= ', avg, ' максимальное число= ', max);
end.

После ввода значений переменных a, b, c программа определит минимальное, среднее и максимальное числа среди них и выведет их на экран.