Выкладываю задачу, в которой вводишь выражение со сложением и вычитанием, а он выдает результат как доисторический калькулятор.
********************************************program Project1;

{$APPTYPE CONSOLE}


var ch:char;
d,s,sign,sum,k:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
s:=0; sign:=1; sum:=0;
writeln('vvodite chisla');

repeat
read(ch);
case ch of
'+': begin sum:=sum+k; sign:=1 ; s:=0;
end;
'-': begin sum:=sum+k; sign:=-1; s:=0;
end;
'0'..'9':begin

d:=(ord(ch)-ord('0'));
s:=10*s+d; k:=sign*s;
end;

end;

until ch=#13;
sum:=sum+k;
writeln(sum);

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.