До ть зробити це завдання! Дуже треба
​

Var s1,s2:string;
begin;
writeln('Введите исходные знаки');
readln(s1);
readln(s2);
if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then
begin;
writeln('Ошибка');
exit;
end;
if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln('+') else writeln('-');
end.

С числами:
var a,b:integer;
begin;
writeln('Делимое:');
readln(a);
writeln('Делитель');
readln(b);
if b=0 then
begin;
writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.');
exit;
end;
if a=0 then
begin;
writeln('0');
exit;
end;
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-');
end.

Program str;
 Uses crt;
Var   s:string;  
i,p,sum:integer;
Begin     
         P:=1;     
         Sum:=0;     
         Readln(s);     
         For i:=1 to length(s) do     
               Begin      
          If s[i] in ['0'..'9'] then                       
                                       Begin                           
                                               p:=p*(ord(s[i])-ord('0'));                                                                                         sum:=sum+(ord(s[i])-ord('0'));                     
                                       End;     
               End;     
Writeln('Сумма = ',sum,' ','Произведение = ',p);
End.