Водиннадцатой строке пишет "встречно else, а ожидалось ; ", но весь прикол, что если я поставлю туда ; то тогда он напишет "встречно else, а ожидался ! uses crt; var a, b, c: integer; begin writeln ('что вы хотите сделать? '); writeln ('1-сложить 2-отнять 3-разделить 4-умножить'); readln (c); clrscrn; if c=1 then read (a, b); writeln (a+b) else if c=2 then read (a, b); writeln (a-b) else if c=3 read (a, b); writeln (a/b) else if c=4; read (a, b); writeln (a*b); else write ("так, стоп, че за фигня? где то тут меня "); end.

Uses   crt; var   a, b, c: integer; begin   clrscr;   writeln('что вы хотите сделать? ');   writeln('1-сложить 2-отнять 3-разделить 4-умножить');   readln(c);   if c = 1 then begin       read(a, b);       writeln(a + b)   end   else   if c = 2 then begin       read(a, b);       writeln(a - b)   end       else   if c = 3 then begin       read(a, b);       writeln(a / b)   end           else   if c = 4 then begin       read(a, b);       writeln(a * b);   end   else       write('так, стоп, че за фигня? где то тут меня ');   readkey end. но короче и понятнее это написать так: uses   crt; var   a, b, c: integer; begin   clrscr;   writeln('что вы хотите сделать? ');   write('1-сложить 2-отнять 3-разделить 4-умножить'); readln(c);   if (c > = 1) and (c < = 4) then begin       write('введите через пробел два натуральных числа: '); read(a, b);       case c of           1: writeln(a + b);           2: writeln(a - b);           3: writeln(a / b);           4: writeln(a * b)       end;   end   else write('так, стоп, че за фигня? где то тут меня ');   readkey end.

hsudb baye jriekxv club вот это правельно