ANTICHAT - Показать сообщение отдельно

Цитата:

Сообщение от Fire3d

Вот мой способ

Почему он не работает ?

Код:

program pas;
uses crt;
var
a,b,s:integer;
c:char;
begin
write('>'); readln(a,c,b);
write(a);
case c of
'+':write('+');
end;
write(b);
s:=a+b;
writeln('=',s);
end.

переменная, в которой может быть '+' должна быть типа char. еще было бы неплохо указать, что сложение вводить надо с пробелами (например, написать пример

). но ваще можно и так написать:

writeln('>');
writeln('4+4=8'); или writeln('FATAL ERROR!');