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