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

Цитата:

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

Не netman это не то.
Надо при вводе 4+4 программа сочитала и вывила ответ 4+4=8.

ну а если вообще серьезно то вот:

Код:

uses
  SysUtils;

var 
b,c,r,y:integer;
a:string;
begin
  write('4to xotite slozhit?'); 
  readln(a);
  y:=Length(a);
  b:=strtoint(copy(a,pos('+',a)+1,y));
  c:=strtoint(copy(a,1,pos('+',a)-1)); 
  r:=c+b;
writeln('Otvet=',r);
readln;
end.

как заказывали, если ввести 4+4 одной строкой то выдаст ответ.