Напишите программу, которая получает три числа -рост трёх спортсменов, и выводит сообщение «По росту. », если они стоят по возрастанию роста, или сообщение «Не по росту!», если они стоят не по росту. pascal

var

a, b, c: integer;

begin

readln(a, b, c);

if (a <= b) and (b <= c) then writeln('По росту.')

else writeln('Не по росту!');

end.

program PoRostu;

 var a,b,c:integer;

begin

 writeln('Введите рост первого спортсмена');

 readln(a);

 writeln('Введите рост второго спортсмена');

 readln(b);

 writeln('Введите рост третьего спортсмена');

 readln(c);

 if ((a <= b) and (b <= c)) then

   writeln('По росту.')

 else

   writeln('Не по росту!');

 writeln('Нажмите Enter чтобы выйти из программы');

 readln();

end.

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

2)  основными предметами в школе были письмо, грамота и счет, обучали гимнастическим , плаванию и хорошим манерам.

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

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

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз