Помогите найти ошибку в программе. Паскаль.

Question

Где ошибка в программе? 
var 
p:char; 
s,a,b:real; 
begin; 
writeLn ('Введите выражение'); 
readLn (a,p,b); 
case p of 
'+': s:=a+b; 
'*': s:=a*b; 
'-': s:=a-b; 
'/': s:=a/b; 
 End; 
 WriteLn (s); 
 End. 
 
На АВС все шло нормально, а на АВС. нет не работает (

Сашулька Жданова · Accepted Answer

после begin убери ;

Влад · Answer

смотри - если считывать всё в одну строку, то программа считает не арифметический знак, а пробел. Считывай всё с новой строки.

Людмила Пронина · Answer

Всё выглядит нормально. Возможно, компилятор глючит.

Сергей Меньшов · Answer

Если где-то шло нормально, а где-то не работает, то причина не столько в программе, сколько в особенностях конкретной платформы. Возможно, в функциях ввода-вывода.

Янина Полякова · Answer

begin;