Интернет,люди,книги , телевизор, школа
<em><u>На карте памяти в мабильном телефоне данные также хранятся в виде файлов</u></em>
Var a,b,c,x:real;
<span>begin </span>
<span>writeln('Введите a,b,c,x'); </span>
<span>read(a,b,c,x); </span>
<span>if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else </span>
<span>writeln('Кирпич не пройдет'); </span>
<span>end.</span>
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
2) writeln (copy(s1,2,6));
3) delete (s,1,5);