Var
a, b, c, d, e: real;
function min(a, b, c: real): real;
begin
if(b < a) and (b < c) then min := b;
if(c < a) and (c < b) then min := c;
if(a < b) and (a < c) then min := a;
end;
begin
read(a, b, c, d, e);
write(min(min(a, b, c), d, e));
end.
Вставка -> фигуры
и выбираешь необходимую
2000*8=16000 бит первая страница.
8386608*8=67092864 остальные
67092864+16000=67108864 бит вся книга
67108864:8:1024:1024= 8 МБ
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>