//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.
1)
chr(ord('b'))='b'
2)
ord('A')-ord('Z')=65-90=-25
3)
ord('A')-ord('a')=ord('Z')-ord('z')
65-97=90-122
-32=-32
4)
ord('9')-ord('0')=57-48=9
5)
chr(ord('a')+ord('R')-ord('r'))=chr(97+82-114)=chr(65)='A'
program gt;
var a:char;
l:longint;
begin
readln(a);
l:=ord(a);
writeln(l);
<span>end.</span>
256 цветов - 8-ми битная шкала цветности
8 бит на 1 точку, значит <span>120 байт = 960 бит. </span>
<span>960 бит/8 бит = 120 точек.</span>