Помогите 3 ден не могу решить, буду благодарен за помощь

case x of

1: write (x) ;

2: write (x+1) ;

else read (m) ;

end;

Нужна помощь с кодом Pascal. If k11 = k12 then Begin If k12 = k13 then Begin If k12 = 'х ' then goto win1 Else goto win2; End; End; Else goto showp1; Выдает ошибку на последнем Else Program1. pas (132) : Встречено 'Else', а ожидался оператор

Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val (InputBox (2)) y = (InputBox (6)) z = (InputBox (10)) If x / 2 > y / 3 > z / 4 Then If x / 2 > y / 3 Then max = x / 2 Else max = y / 3 End If End If Else If y / 3 > z / 4 Then max =

В одиннадцатой строке пишет "Встречно else, а ожидалось; ", но весь прикол, что если я поставлю туда; то тогда он напишет "Встречно else, а ожидался оператор!

2) являются ли условными операторами след. последовательности символов: a) if x < y then x : = 0 else y : = 0; b) if x > y then x : = 0 else read (y) ; d) if a < b then 100 else z : = 25;

Найдите ошибки в следующих операторах и запишите исправленные операторы. а) begin if x ²