Составьте программу выводящую на экран фрагмент таблицы умножения: 1x1=1 2x2=4 3x3=9 9x9=81

//PascalABC.NET
var
i:integer;
begin
for i:=1 to 9 do
writeln(i,'*',i,'=',i*i);
end.

#include <stdio.h>
#include <conio.h>
int main()
{
    int A[20];//объявляем массив целых чисел для 20 элементов
    int i; //переменная для цикла фор
    int sum=0, sum1=0;//переменная для суммы, начинаем с нуля
    float avg;
    int count=0; // переменная для подсчета колличеста элементов
   //вводим масив с клавиатуры
   printf("Enter the massive of number\n");
   for(i=0;i<20;i++)
   {
       printf ("A[%d]=",i);
       scanf("%d",&A[i]);
       sum=sum+A[i];// подсчет суммы всех элементов масива
   }
   avg=(float)sum/20;//расчет среднего арифметического
    for(i=0;i<20;i++)
        if (A[i]>avg) //если число больше avg то сумируем и считаем
           {sum1=sum1+A[i];
            count++;
           }
   printf("Summa=%d       amount of numbers=%d",sum1, count);
   return 0;
}

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
  var m:=s.Length-n;
  if m>n then Writeln('В строке букв меньше иных символов')
  else
    if m<n then Writeln('В строке букв больше иных символов')
    else Writeln('В строке поровну букв и иных символов')
end.

Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов

Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов