Решение приведено на фото. Если нужны будут дополнительные объяснения, сообщите
<span>program noname;</span>
<span>uses crt;</span>
<span>var</span>
<span>V,m,P:integer;</span>
<span>begin</span>
<span>clrscr;</span>
<span>P:=1400;</span>
<span>V:=25*2*39;</span>
<span>m:=V*P;</span>
<span>writeln(m);</span>
<span>end.</span>
Это определение слова система
read(n);
if (n>99) and (n<1000) then writeln('Yes');