Сиквейн к слову организация 1.организация
2.описание темы двумя прилагательными или причастиями
3.описание действий, связанных с темой, тремя словами
4.фраза из четырёх слов, показывающие отношение к теме
5.синонимmвыражение одним словом, повторяющий суть темы

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.

1

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца   в компьютере 

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

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

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно   если что то не понравилось удалил и переделал ! и не надо портить бумагу 

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

2 

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !  

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33