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

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

строка меню, строка заголовка, закрывающая кнопка, сворачивающая кнопка, разворачивающая кнопка, полосы прокрутки, рамка окна, рабочая область.

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

текстовый файл имеет расширение 

1).txt

2).ini 

  3).doc

но чаще 1