Дано описание массива: var a: array [1..85] of integer; здесь описан массив "а" из целочисленных значений. при выполнении этого оператора в памяти компьютера будет выделено ячеек целого типа.​

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите текст: ');   var p: =pos('.',s); // позиция точки   if p> 0 then s: =s[: p]; // отбросим до конца все, начиная с точки   writeln('найдено слов: ',s.matchvalues('\b[a-zа-яё][a-zа-яё]+\b').count) end. примеры введите текст: test и только тест сегодня15 января язык pascal версия 3-3. найдено слов: 2 введите текст: и сидит, сидит зловещий ворон черный ворон вещий. найдено слов: 2 введите текст: почему же мы с тобой    пишем с буквы прописной: таня, ваня, мила, нина, коля, петя и ирина. найдено слов: 9

Var a,b,r,s1,s2,s3: real; begin writeln('a, b, r: '); readln(a,b,r); s1: =a*a; s2: =b*b*sqrt(3)/4; s3: =pi*r*r; writeln('s1 = ',s1: 4: 2,' s2 = ',s2: 4: 2,' s3 = ',s3: 4: 2); if (s1> s2)and(s1> s3)   then writeln('квадрат имеет максимальную площадь = ',s1: 4: 2)   else if (s2> s1)and(s2> s3)         then writeln('треугольник имеет максимальную площадь = ',s2: 4: 2)         else writeln('круг имеет максимальную площадь = ',s3: 4: 2); end. пример: a, b, r: 5 8 3 s1 = 25.00 s2 = 27.71 s3 = 28.27 круг имеет максимальную площадь = 28.27