Беру без точки, если что добавишь ещё 2 байта.
52 * 2 = 104 байта. Почему умножаю на 2 а не на 16 и байта а не бита? Потому что в каждом байте 8 бит. 16/8 = 2.
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
program fgh;
var i, s, n, a:integer;
begin
s:=0;
writeln('введите 10 чисел');
for i:= 1 to 10 do
begin
readln(a);
if a mod 2 <> 0 then
s:=s+a;
end;
writeln('сумма= ', s);
end.