Калькулятор на паскале

Нету VAR в разделе описания переменных. Не объявленны переменные a,b,c.

2 Георгий: goto не есть гуд ;-)

Переменные не обьявил)
P.S. если они целочисленные, вместо / используй div )

а вот посмотри эту программу
program kalkul;
uses crt;
label 10,11;
var chislo1,chislo2:integer;
sim1,sim2,sim3,simv4,sim : char;
otv:real;
begin
clrscr;
write('vvesti pervoe chislo --> ');
readln(chislo1);
write('vvesti vtoroje chislo --> ');
readln(chislo2);
writeln(' MENU');
writeln('----------------');
writeln( ' + slojene ');
writeln( ' - vichitanie ');
writeln( ' * umnojenie ');
writeln( ' / delenie ');
writeln('----------------');
write('vash vibor -->');
10: gotoxy(15,10);
readln(sim);
if (sim='+') or (sim='-') or (sim='*') or(sim='/')
then goto 11
else begin writeln('neverno vveden znak'); goto 10; end;
11: case sim of
'+': begin otv:= chislo1 + chislo2; end;
'-': begin otv:= chislo1 - chislo2; end;
'*': begin otv:= chislo1 * chislo2; end;
'/': begin otv:= chislo1 / chislo2; end;
end;
writeln;
writeln(chislo1,' ',sim,' ',chislo2,' = ',otv);
readln;
end.

разве в паскале не все переменные надо в начале перечислить?

var
a, b, c: real;
ch: char;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Выбирете действие (+, -*, /): ');
readln(ch);
case ch of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
end;
writeln('Результат: ', c);
end.

а если чисел больше 2 или человек вводит выражение со скобками, тогда как?

в третьей строке пропустил служебное слово «вар» (англ. буквами)

ого