Найти произведение от 1до n( p=1*2**n) на языке паскаль

Var     factorial: longint;     n, i: byte;   begin write('n = '); readln(n);       factorial : = 1;   for i: =2 to n do factorial : = factorial * i;   writeln('n! = ', factorial);   readln; end.

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

 

 

прости что не решила  

 

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно