Помогите, пожалуйста!. Даны два числа. Если они оба отрицательны, то найти остаток…

Program da; Var a,b,c: integer; BeginWriteLn ('); Read (a,b); If (a<0) and (b<0) then c: =a mod belse c: =a-b; WriteLn (c); end. Должно получится. Если не получится, поменя какие-то условия. Должно быть так.