628 Х10 Х2 ;

4В16 Х10 Х8 ;

100001112 Х10 Х16 ;

278 Х10 Х16 ;​

всего длина окружности составляет 2пr, а половина - пr

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.