Вопрос Проблема с программой в Pascal ABC,Встречено ';',а ожидалось ':'. Если менять, то вылетает ещё ошибк

[dimo]

Проблема с программой в Pascal ABC,Встречено ';',а ожидалось ':'. Если менять, то вылетает "Встречено if,а ожидалось выражение".

Сама программа
program dnocalculator;
uses crt;
var
vibor:integer;
a,c,d,e1,e2:real;
b:char;
begin
clrscr;
writeln('Арифметические действия - 1. Квадратный корень - 2.');
readln(vibor);
case vibor of
1: writeln ('Арифметические действия');
textcolor(14):;
writeln('Калькулятор 0.2'):;
write('Введите число: '):;
readln(a):;
textcolor(8):;
write('Введите знак +, -* или / :'):;
readln(b):;
textcolor(14):;
write('Введите второе число: '):;
readln(c):;
If (b='+') or (b='-') or (b='*') or (b='/') then begin
if b='+' then d:=a+c
else
if b='-' then d:=a-c
else
if b='/' then d:=a/c
else
if b='*' then d:=a*c;
textcolor(10);
writeln(d ,' - Результат');
end
else
textcolor(12);
writeln('Некорректное выражение');
2: writeln('Степени и корни');
writeln('Чтобы найти квадратный корень из числа, напишите это число');
readln(e);
If e1>=0 then e2:=sqrt(e1) writeln('Корень из числа',e1,'равен',e2);
else writeln('Корень не изымается');
else writeln('Нет такого выбора');
end
end.

 

[Joey]

в какой строке?

 

[Zhenya123]

Хахах посмотрите на него

 

[Roman228]

что у тебя за бред в коде? должно быть примерно так 1: begin куча кода end; 2: begin куча кода end;

 

[zajigalka]

Зачем по 2 знака препинания :; ?..