Написать программу , которая выводит на экран таблицу умножения всех чисел(в виде квадрата пифагора

program pifagor; uses crt; const n=10; var  x,y: integer; begin  writeln('********************************************************');   writeln('*                                              pifagor                                            *');   writeln('*                                  (таблица умножения)                                *');   writeln('********************************************************');   write('*      * ');   for y: =1 to n do      begin          write(y: 2);           if y< n then write(' | ')          else          writeln(' * ');       end;   writeln('********************************************************');   for x: =1 to n do      begin          write('* ',x: 2, ' * ');           for y: =1 to n do                begin                  write(x*y: 2);                   if y< n then write(' | ')              end;               if x*y< 100 then writeln(' * ')                                    else writeln('* ');               if x< 10 then writeln('++')                              else writeln('********************************************************');       end; end.

паскаль

uses crt; var n,m: integer; begin  for n: =1 to 9 do  begin    for m: =1 to 9 do      write(m*n: 5);     writeln;   end; end.

не знаю правильно или нет но логически.  в финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели. они имели многочисленные колонии по всему средиземноморью, их торговые корабли плавали и на британские острова, и в индию. услугами моряков-финикийцев пользовались многие соседние государства.  надо ли говорить, как необходимо было правителям финикии, купцам и мореплавателям простая и надежная письменность. соседствуя с египтом, финикийцы хорошо знали египетское письмо. известна им была и клинопись. но слишком сложными казались им эти письмена — им нужно было что-то более доступное, практичное. и это «что-то» они нашли в изобретении гиксосов. алфавит гиксосских писцов не успел получить окончательного оформления в систему письменности по причине кратковременности существования гиксосского государства. взяв его за основу, в южной финикии была создана своя система письменности.  финикийский алфавит состоял из 22 знаков (букв), следовавших друг за другом в строгой последовательности. сами знаки-буквы имели простую для написания и запоминания форму. каждый знак-буква выражал определенный согласный звук. финикийцы дали буквам свои названия: для каждой буквы они подобрали слово, где первый звук соответствовал данной букве.   

решать надо примерно так:

создать массив целых чисел(к примеру на 20 элементов)

объявить две переменные(счётчик и b)

написать пользователю чтобы он ввёл значение для b

заполнить массив числами через цикл for и генератор псевдо-слуайных чисел(к примеру от 0 до 50)

всё в том же цикле сделать условие типа "если a[i] > b и если a[i] % 5 == 0(делится на 5 без остатка)", то увеличить счётчик на единицу, и после этого условия вывести значение элемента в строчку через пробел

ну и в конце вывести значение счётчика.

в паскале не разбираюсь, поэтому вот пример решения на c++

#include < iostream> using std: : cout; using std: : cin; using std: : endl; #include < cstdlib> using std: : rand; using std: : srand; #include < ctime> using std: : time; int main(){    int a[20], counter = 0, b;     srand(time(0));     cout < < "enter b: ";     cin > > b;     for(int i = 0; i < 20; i++)    {          a[i] = rand() % 51;           if(a[i] > b & & a[i] % 5 == 0)          {                counter++;           }          cout < < a[i] < < ' ';     }    cout < < "\n" < < counter < < " numbers" < < endl;     cin.get();     return 0; }