Var a1, a2, a3, a4, a5, a6 : integer // или другой тип, если нужен
begin
read(a1, a2,a3,a4,a5,a6)
write(a1+a2+a3+a4+a5+a6)
end.
1024байта - 1024*8=8192 бит
1024 кбайта - 8192000 бит
1024 гбайта - 8192000000000 бит
Это означает,что сейчас каждый образованный человек должен хорошо уметь печатать.
Может быть первое так как в паскале функция Random(X) выводит число от 0 до х