Var
Y,X:real;
Begin
Write('X = ');ReadLn(X);
if X<2 then Y:=5<br>else if X=2 then Y:=2
else Y:=10;
WriteLn('Y = ',Y);
End.
2)
c = 5, когда не выполняется оба условия, то есть:
If a<7 then c:=10 // a>=7
else if a>7 then c:=2 // a>7
else c:=5
Переменная a может иметь любое значение больше семи.