Var
a: array[1..10] of integer;
i, j, temp: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100,999);
write(a[i]:3);
end;
writeln;
for i := 1 to 10 - 1 do
for j := i + 1 to 10 do
if a[i] > a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
for i := 1 to 10 do
write(a[i]:3);
end.
Begin ... end - скобки для многострочного оператора. Используется
например для операторов цикла, условного оператора, функций и
обязательны для общего текста программы
write - вывод данных на консоль или в файл
read - считывание данных из консоли или файла
var - открывает раздел обьявления переменных, сокращение от variables
1.сахар
2.Капучино
3.Вода
4.Молоко(сливки по желанию)