В одиннадцатой строке пишет "Встречно 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.