Question

Помогите ответить на 5 вопрос

Answer 1

If a-b <= C then
   s := s * c
else
   s := a/c;

Answer 2

Program Primer;
Var A,B,C:real;
begin
Readln(a,b,c);
If A-B<=C
Then C:=a*c
Else
C:=a/c;
Writeln('C=', C);
End.