Question

Var x,y,min: Integer;BEGINWrite('Vvedite X i Y: '); Readln(x,y);If xElsemin:=y;If x-yWriteln('MIN= ',min);ReadlnEND.в чом ошибка

Answer 1

If xElse нету условия

If x-y после этого надо дописать then

Answer 2

Проблема в вашем коде заключается в том, что вы используете операторы If и Else без соответствующих операторов Then и Begin. В Pascal синтаксис оператора If следующий:

arduinoCopy code
if условие then
    // код выполняющийся, если условие истинно
else
    // код выполняющийся, если условие ложно

Вот как должен выглядеть ваш код с правильным синтаксисом:

pascalCopy code
Var
    x, y, min: Integer;
BEGIN
    Write('Vvedite X i Y: ');
    Readln(x, y);
    
    If x < y then
        min := x
    else
        min := y;

    Writeln('MIN= ', min);
    Readln
END.

В этой версии кода, если x меньше y, то переменной min будет присвоено значение x, иначе y. После этого будет выведено минимальное значение из двух введенных чисел.