const - служебное слово задающее программе константу, то есть неизменяемое значение.
Оно задаётся следующим образом:
const
Pi = 3.14;
Name = 'Михаил'
a = 123;
Cлужебное слово CONST в программе на языке PASCAL фиксирует начало раздела программы содержащего <em>константы.</em>
{1}
var a,b,n:integer; c:real;
begin
read(n);
for a := 1 to n-1 do
for b := a to n-1 do
begin
c := sqrt(sqr(a) + sqr(b));
if c < n then
if c = trunc(c) then
writeln(a:3,' ',b:3,' ',c:3);
end;
end.
{2}
var n,i:integer; s,x:real;
begin
read(n);
s := 0;
for i := 1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
end.
1) 1 Кбайт, 1000 байтов, 1 байт, 1024 бита, 1 бит
2) 10 битов, 20 битов, 2 байта, 1010 байтов, 1Кбайт
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB
Нажимаешь кнопку PrtScr,а потом вставляешь в любую графическую программу (например paint). Все просто)