var x,y: integer;
var min,max: Real;
var Z: real;
var step: Real;
begin
writeln('Введите x: ');
readln(x);
writeln('Введите y: ');
readln(y);
if x<=0 then
begin
max:= x+y;
if max<((x*y)/2) then
begin
max:= (x*y)/2;
writeln('Max: ', max);
end;
else
begin
for i:=1 to 0.5 do step:=step*(x*0.5);
min:= step;
if(min > (x+y)/2) then
min:= (x+y)/2;
writeln('Min: ', min);
end;
end;
end.
Объяснение:
Да можно, можно взять несколько файлов и сжать их в zip формате. Это уменьшает размер файлов.