Построить треугольник из символов на паскале 0000 000 00 0

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

у нас интересные школьные дела. мы выпускаем свою газету, куда любой ученик может написать заметку и нарисовать рисунок. участвуем в школьных олимпиадах. а потом лучших на линейке. в феврале у нас проходит неделя наук. на этой неделе проходит много конкурсов, открытых уроков и интересных соревнований.

a-возраст cаши

b– возраст маши

program r;

var a,b: integer;

begin

readln(a,b);

if a=b then writeln («ровесники»)else writeln( «неровесники»)

end.