1. разработать и написать алгоритм определения s = b(c + d)/(k − 1). 2. составить алгоритм вычисления х! = 1*2*3* *х.

Program p17;
var b,c,d,k,S: real;
begin
writeln ('Введите b: ');
readln (b);
writeln ('Введите c: ');
readln (c);
writeln ('Введите d: ');
readln (d);
writeln ('Введите k: ');
readln (k);S:=b*(c + d)/(k - 1);
writeln (S);
end.

Program p17;
var x,S:integer;
begin
writeln ('Введите x: ');
S:=1;
readln (x);
while x>0 do
begin
S:=S*x;
x:=x-1;
end;
writeln (S);
end.