Продолжи ряд числовых данных 1 11 111 идальше 3 числа

1111 11111 111111

наверно так, но точно не знаю.

Var a,b,c,p,s: real; m: integer; begin   repeat     writeln('a,b,c & ');       readln(a,b,c); {вводим стороны до тех пор пока не выполнится условие сущ треуг}   until (a< b+c)and(b< a+c)and(c< a+b);     writeln('площадь - введите  1 или периметр -2  ? '); {выбираем что считать, если площадь, то вводим 1, периметр - 2} readln(m);       case m of           1:         begin             p: =(a+b+c)/2;             writeln('s =  ',sqrt(p*(p-a)*(p-b)*(p-; {вывод площади}         end;       2: writeln(a+b+c); {вывод периметра}       end; end.       программа 2 нахождение суммы элементов одномерного массива const n=10; var a: array[1..n]of integer; i,s: integer; begin     for i: =1 to n do           begin               a[i]: =random(100); {заполнение массива случайными числами [0.100)}               write(a[i]: 4); {выводим на экран массив}               s: =s+a[i];   {считаем сумму}           end; writeln; writeln('s=  ',s); {выводим сумму} end.