Алгоритм(послідов ність команд) змінення місяців протягом року.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.

16-битной кодировке unicode.

один символ s =16 бит

количество бит текстового файла    к=  51200 бит/с * 10 с= 512000

количество символов к/s=512000/16  =32000

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии

видим на рисунке прямоугольник

пишем

*длина

*ширина

*координаты центра

*угол поворота

*цвет

*цвет заливки

методы

*площадь

*нарисовать

*повернуть

и тд