var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
110101+1010=111111
1101*11=12111
Буфер это какая то область для хранения чего либо.
Буфер обмена - это ты что то сохраняешь в него для последующего использования
Обычно это копи паст ( ctrl+c копируем ( т.е сохраняем в буфер ) и ctrl+v вставляем, т.е то что сохранили в буфер ( нашу область ) )
Для записи результата одного спортсмена требуется log(2)12≈4 бита (2^4=16). Объем информации о финише 2/3 спортсменов = 4*12*2/3 = 32 бита = 4 байта.
Program q;
var a, b, max:integer;
begin
write('VVedite 2 chisla');
read(a,b);
max:=a;
if a<b then
max:=b
else
max:=a;
writeln(max);
end.