Найдите стихотворение. мне надо поздравит стихотворение на выпускной учительницу по информатике ее зовут юлия александровна. я выберу лучшее и 80 .

Что в компьютере внутри?
Как с ним управляться?
С этим, что ни говори,
Сложно разобраться.
Но Вы все нам рассказали,
Большое Вам
Пусть все то, что пожелали,
В жизни у Вас было.

Биты,байты,алгоритмы,
Обработка информации,
Как компьютер подобрать
Нужной нам конфигурации-
Все о мире виртуальном
Знает этот человек!
Любим все без исключенья
Информатики предмет!
И в реальном мире Вас
Мы сегодня поздравляем!
И реальных Вам побед
И успехов Вам желаем!

Const
maxn = 15;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
k1, k2, k3, sr, i: longint;
begin
for i := 1 to 15 do begin
read(a[i]);
sr := sr + a[i];
end;
sr := sr div 15;
for i := 1 to 15 do begin
if (a[i] > sr) then
inc(k1);
if (a[i] = sr) then
inc(k2);
if (a[i] < sr) then
inc(k3);
end;
writeln('Количество элементов, больших среднего арифметического, = ', k1);
writeln('Количество элементов, равного среднему арифметическому, = ', k2);
writeln('Количество элементов, меньших среднего арифметического, = ', k3);
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,h):=(0.0,3*Pi,0.6);
  var x:=a;
  var (k,s):=(0,0.0);
  while x<=b do begin
    var y:=x*Sin(x);
    Writeln(x:5:1,y:18:13);
    if y>0 then k+=1 else s+=y;
    x+=h
    end;
  Writeln('Положительных- ',k,', сумма отрицательных ',s)
end.

Пример
  0.0   0.0000000000000
  0.6   0.3387854840370
  1.2   1.1184469031607
  1.8   1.7529257355808
  2.4   1.6211116333228
  3.0   0.4233600241796
  3.6  -1.5930735958615
  4.2  -3.6606182441371
  4.8  -4.7815901224120
  5.4  -4.1729282328023
  6.0  -1.6764929891936
  6.6   2.0561729991883
  7.2   5.7144086197139
  7.8   7.7886380939219
  8.4   7.1786308279416
  9.0   3.7090663671758
Положительных- 10, сумма отрицательных -15.8847031844065