Program xyz;
var x,y,z,a,b,c,min:real;
begin
read (x,y,z);
a:=x+y+z;
b:=x*y*z;
c:=x/y/z;
min:=a;
if (b min:=b else if c min:=c;
writeln ('минимальное значение равно вылазит неожиданны символ ' ' в 10 строке , что делать , где ошибка.

Вы не дописали строку 11, где неверно указали оператор if.

Как должно быть правильно:

if условие then действие

else действие;

Если вы не знаете то, как дописать if, то покажите или напишите условие задачи Вам решить до конца

Объяснение:

Правильное решение задачи:

program xyz;

var x,y,z,a,b,c,min:real;

begin

read (x,y,z);

a:=x+y+z;

b:=x*y*z;

c:=x/y/z;

min:=a;

if b<min then min:=b;

if c<min then min:=c;

writeln ('минимальное значение равно ', min);

end.

№1 //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) №1 var   a, b, i, s1, s2, s3,k: integer; begin   a : = readinteger('введите первое трехзначное число');   b : = readinteger('введите второе трехзначное число');   for i : = a to b do   begin       k: =0;       s1 : = i mod 10; k: =1;       s2 : = (i div 10) mod 10;       if s2=s1 then k: =k+1;       s3 : = (i div 100)mod 10;       if s3=s1 then k: =k+1;         if k = 2 then println(i);   end; end. тестовое решение: введите первое трехзначное число 100 введите второе трехзначное число 200 100 101 121 122 131 133 141 144 151 155 161 166 171 177 181 188 191 199 200 №2 //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var a,b,n: integer;   p: biginteger; begin   repeat       a: =readlninteger('введите a');       n: =readlninteger('введите n');   until (a> 0) and (n > 0);   p: =1;   for var i: =1 to n do begin       p: =p*a;   end;   println(a, 'в степени', n,' = ',p);       p: =1;   for var i: =1 to a do begin       p: =p*n;   end;   println(n, 'в степени', a,' = ',p);   end.  тестовое решение: введите a 2 введите n   3 2 в степени 3  =  8 3 в степени 2  =  9