Найти остаток от деления целой части выражения sin(a+b)*0.5c на 4.Если остаток равен 0,то значение выражения нужно заменить на его целую часть,если остаток равен 1, то значение выражения следует заменить на его дробную часть.В остальных случаях оставить без изменений. — Pascal(Паскаль)

Uses
  CRT;

Var
  s, a, b, c: real;

begin
  write('a,b,c: ');
  readln(a, b, c);
  s := sin(a + b) - 0.5 * c;
  write('S:=', s);
  case round(int(sin(a + b) - 0.5 * c)) mod 4 of
    0:
      s := int(sin(a + b) - 0.5 * c);
    1:
      s := frac(sin(a + b) - 0.5 * c);
  end;
  writeln;
  write('S:=', s);

end.