Вопрос Поскаль Помогите в программирование

[mr.ded]

Где тут ошибка?

Program Calculytor_2;
uses crt;
var
A, C, S:real;
X:char;
Begin
Writeln('Добро пожаловать в калькулятор ');
Writeln('Напишите пример');
Readln(A);(X);(C);
Case X of
'*':begin S:=A*C; Writeln('Ответ=',S); end;
'/':begin S:=A/C; Writeln('Ответ=',S); end;
'+':begin S:=A+C; Writeln('Ответ=',S); end;
'-':begin S:=A-C; Writeln('Ответ=',S); end;
else
textcolor(red);
writeln('Такой операции нет!');
End;
End.

 

[пппппппп]

Внутри оператора case каждый вариант подразумевает выполнение одного оператора: − простого (например, textcolor(red)) − или составного (begin ...end) А теперь посмотри в секцию else.

 

[cfy]

Помочь написать слово правильно? Так оно через а пишется

 

[макс01]

В строке Program Calculytor_2; Нужно писать Program Calculyator_2;