Запиши математическое выражение (6+t)2 на языке Паскаль. (При записи ответа используй прописные буквы

writeln((6+t)*2);

Объяснение:

Есть кнопочки антена,
Звонит в другом конце света,
Знаменитый, как айфон,
Получается ... (телефон)

Четыре ножки, одна доска,
На нём стихи пишу гордо я!
Его ставят на любой пол,
Это создание называется ... (стол)

Музыка, игры, всё, что желаешь!
Туда и мультфильмы перекачаешь,
Информационного века моды писк,
Иначе зовётся лазерный ... (диск)

Туда запишешь всё, что надо,
Мысли, уроки, рисуй что попало!
В этой брошюрке много страничек,
Что это? Правильно! ... (записная книжка)

Она кликнуть на ссылку,
Она также может скушать весь сыр!
О боже, что это? Чудище кыш!
Живёт в норе, серая ... (мышь)

Мы в понедельник туда все идём,
Много учебников туда принесём!
Наш огород знаний, она прополола,
Наша прекрасная, любимая ... (школа)

P.S. Писал сам

Var
a:array[1..10] of integer;
cnt1, cnt2, i:integer;
begin
 For i:= 1 to 10 do
   Read(a[i]);
 for i:= 1 to 5 do
  if a[i] > 0 then cnt1 := cnt1 + 1;
 for i:= 6 to 10 do
  if a[i] > 0 then cnt2 := cnt2 + 1;
 if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
 if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
 if cnt1 < cnt2 then  Writeln('Количество пол-х элементов больше во второй половине');
end.

Пример:

-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х элементов больше во второй половине