Неполучается решить задачу по паскалю... выдаёт тип то что 'встречено else,а ожидался оператор 'всё перепробывал...если кто знает скажите


Program komp;

var
a,b : integer;
x,s,k : string;

begin
writeln('Введите своё имя:');
readln(x);


if x = 'Антон' then
writeln('Добро пожаловать, Антон!');
writeln('Выбирите действие:');
writeln('КАЛЬКУЛЯТОР');

readln(s);

if s = 'КАЛЬКУЛЯТОР' then
writeln('Выбирите знак(+,-,/,*):');
readln(k);
begin
begin

if k = '+' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a+b)

else

if k = '-' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a-b)


else
if k = '*' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a*b)

else
if k = '/' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a/b);

end;
end.


Программа не дописана...

твоя програма не работает

посмотри сам

Program komp;vara,b : integer;x : string; k:char;beginwrite('Введите своё имя:');readln(x);writeln('Добро пожаловать, ',x);writeln('КАЛЬКУЛЯТОР');writeln('Выберите знак (+,-,/,*):');readln(k);writeln('Введите два числа:');readln(a,b);case k of  '+': writeln('ОТВЕТ:', a+b); '-': writeln('ОТВЕТ:', a-b); '*': writeln('ОТВЕТ:', a*b); '/': writeln('ОТВЕТ:', a/b); end;end.Пример:Введите своё имя:АнтонДобро пожаловать, АнтонКАЛЬКУЛЯТОРВыберите знак (+,-,/,*):+Введите два числа:5 9ОТВЕТ:14

1) Если используешь ветвление (метод ЕСЛИ) в твоем случаи метод ИНАЧЕ после каждого ЕСЛИ  использовать не надо должно быть так.Выберите действиеесли + делай следующееесли - делай следующееесли * делай следующееесли / делай следующееиначевы выбрали действие не относящее к программе калькулятор2) Ты там с именами пользователей чуть чуть накрутил, я исправил посмотри, файл прикрепил, открой прямо в паскале.