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