Выше было сказано. Но и еще есть прототипы.
Ответ такой: 137 восьмеричной системе счисления
Декодируем первую фразу: <span>вражда не делает добра.
</span>Зашифруем вторую фразу: <span>олпср.</span>
В ячейку B3 вписать =ПРАВСИМВ(B2;4)
Uses crt;
Var
i,a,b,pr:integer;
Begin
Clrscr;
Pr:=1;
Repeat
Writeln('Введите числа A=1, b<=10'); readln(a,b);
Until (a=1) and (b<=10);
For i:=a to b do
Pr:=pr*i;
Writeln('Произведение числ от ',a,' до ',b,' равно ',pr);
Readkey;
End.