Помогите пж . Верхнее задание нужна формула

Формулы:

S:=a(омега)*2;

S:=a(омега)+b;

Объяснение:

Program s80;

Var

s,a,b:real;

C:integer;

Begin

Writeln('Введите число b');

Read(b)

Writeln('Какую операцию выполнить? Прибавить b(1) или умножить на 2(2)?');

Read(c);

Case c of

1:S:=a*2;

2:S:=a+b;

End;

Writeln('Итог операции ',S);

End.