Блин помогите плиз почему код не работает

Question

Program ede2; 
var 
 a,b,c,next:longint; 
 Plus_minus:char; 
begin 
next:=1; 
while (next=1) do 
begin 
 
Writeln(enter * or /); 
Readln(Plus_minus); 
If(Plus_minus='*') or (Plus_minus='/') 
then 
begin 
write('Enter a='); 
readln(a); 
write('Enter b='); 
readln(b); 
 
if (Plus_minus='*') 
then 
begin c:=a*b; 
writeln('proizvedenie=',c); 
end 
else 
begin 
c:=a/b; 
writeln('raznost=',c); 
end; 
end 
else Writeln(Error!!!!); 
writeln('Press 1 to continue'); 
readln(next); 
 
end; 
end.

Юлия Усачева · Accepted Answer

Writeln("enter * or /"); // скобки надо ставить, иначе будут писаться переменные с таким именем 
Плюс у тебя есть деление, переменную с хотя бы в реальные числа перемести. 
Это навскидку возможные ошибки. Может ещё чего есть. Всегда есть :)

Николай · Answer

Program ede2; 
var 
a,b, next:longint; 
Plus_minus:char; 
begin 
next:=1; 
while (next=1) do 
begin 
 
Writeln('enter * or /'); 
Readln(Plus_minus); 
If(Plus_minus='*') or (Plus_minus='/') 
then 
begin 
write('Enter a='); 
readln(a); 
write('Enter b='); 
readln(b); 
 
if (Plus_minus='*') 
then 
begin c:=a*b; 
writeln('proizvedenie=',c); 
end 
else 
begin 
writeln('delenie=', a/b); 
end; 
end 
else Writeln('Error!!!!'); 
writeln('Press 1 to continue'); 
readln(next); 
 
end; 
end. 
 
Компилируй и перестань наконец флудить!