Var
a,b,c : integer;
begin
readln(a,b,c);
if (a < b) and (a < c) then writeln(a);
else if (b < a) and (b < c) then writeln(b);
else if (c < a) and (c < b) then writeln(c);
else writeln('Числа равны');
end.
15 страниц по 38 строк по 64 символа = 15*38*64 = 36480 символов.
Если каждый символ кодировать 1 байтом, то 36480 байт = 35,625 кбайт (ASCII), а если 4 байтами (UTF-8), то 145920 байт = 142,5 кбайта
Var n,i,s:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма: ',s);
<span>end.</span>
В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>