Написать программу для ГРИС, изображающую орнамент из 10 элементов (с циклом, в котором используется процедура "орнамент")

Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).Из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). С другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). Таким образом, на острове живут 10 честных жителей (n = 10).Из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. Следовательно, на острове живут 100 лжецов (m = 100).Итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров  :).

1.
var p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283