Составить программу, которая вычисляет число x, округленное до ближайшего целого. вещественное число x вводится с клавиатуры.

var x: real; begin  read(x);   writeln(round(x)); end.

Используем формулу герона для нахождения площади треугольника по трем сторонам: s=√(p·(p-a)·(p-b)·(p- где p - полупериметр, равный p=(a+b+c)/2 программа: program z; var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2: real; begin readln(a1,b1,c1);     {ввод длин сторон первого треугольника} p1: =(a1+b1+c1)/2; {полупериметр первого треугольника} s1: =sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника} readln(a2,b2,c2);   {ввод длин сторон второго треугольника} p2: =(a2+b2+c2)/2; {полупериметр второго треугольника} s2: =sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника} if s1=s2                    {если площади треугольников равны} then writeln('yes')    {то вывести положительный ответ} else writeln('no');     {иначе вывести отрицательный ответ} end.

Замечание. так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием true, но как только будет введено число 0, остановим цикл командой break. программа: program z; var k,s,x: integer; begin k: =0;               {начальное значение количества двузначных чисел} s: =0;               {начальное значение суммы двузначных чисел} while true do  {открываем бесконечный цикл} begin readln(x);         {вводим число х} if x=0 then break;   {если введенное число равно 0, то остановить цикл} if (x> 9)and(x< 100) then  {если число двузначное, т.е. от 10 до 99}      begin      k: =k+1;           {количество увеличиваем на 1}     s: =s+x;           {увеличиваем предыдущее значение суммы на число х}     end; end; if k=0 then writeln('no')  {если двузначных чисел не было, то вывод no}     else writeln(s/k);           {иначе вывод ср.арифметического} end.