5 примеров (составить блок -схемы)
2 задачи (режим дня, ЗОЖ)

 var i,N:integer;
begin 
веедите натуральное число не превосходящее 1000'); 
readln(N); 
writeln('Входное число=',N); 
for i:=0 to (N-1) do write(i,' ');
 end.

Пример работы: 
веедите натуральное число не превосходящее 1000
5
Входное число=5
0 1 2 3 4 
P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');

Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.

У человека есть 5 органов чувств

глаза (зрение),

уши (слух),

язык (вкус),

нос (обоняние)

кожа (осязание, ощущение боли, температуры)

горячий хлеб влияет на глаза, язык, обоняние, кожу. если его нюхать, то будет запах, если смотреть на него, то его пар может попасть в глаза, ну и остальное ясно

во время сна наши глаза закрыты и мы ничего не видим, уши продолжают слышать, потому что от громкого звука и т.п. человек может проснуться, язык и нос также реагируют на различные вещи, кожа безусловно, тоже чувствует прикосновения

замороженная роза воздействует на кожу, если держать ее, то кожа станет холоднее, если облизать языком, то будет также холодно, на уши никак не влияет, глазами мы видим, запах по сути не передает

река мокрая, может воздействовать на глаза, кожу, язык, потому что влажно. уши (если нырнуть в реку, то слышать будем приглушенно), ну река бывает пахнет, но это не всегда.